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I ntroduction 


Introduction 

Draper Software welcomes you to the world of Pascal for the Atari 
400/800, XL, and XE series Computer Systems. 

What is Pascal? 

Pascal is a high-level structured programming language developed 
by Niklaus Wirth in 1971. It is easy to understana and well suited 
for program development and maintenance. 

What is Draper Pascal? 

Draper Pascal is not a "Standard" Pascal. It has a number of 
commands which are exactly like ISO and UCSD versions, some which 
are similar, and many "extensions" which bring out the tru$ power 
of the Atari Computer in an easy to use manner. It was de^igned to 
reguire only one disk drive for Operation, but not be limited to 
only one. At this time, it has been shown to work with all 
hardware and Software configurations where enough memory is 
provided. This imp1 ementation also has a number of commands which 
are familiär to Atari BASIC users, such as POKE, PEEK, SETCOLOR, 
NOTE, POINT, etc.. 


About this manual 

This manual is intended to familiarize you with all the features 
of Draper Pascal. It is not intended to teach you how to program 
in Pascal. However, if you already know Atari BASIC, then you can 
understand the Pascal statements more easily by referring to their 
BASIC equivalents shown after the definition of each Pascal 
reserved word. It is recommended that you read this manual 
completely to be familiarized with its features and restrictions. 


What is Draper Pascal made of? 

This implementation of Pascal is made up of three main components. 
They are the Supervisor (sometimes referred to as runtime 
routines), the CQmpiler, and the Editor. The Supervisor is a high 
performance machine language program which simuiates a 16-bit 
pseudo Computer. The Compiler translates Pascal source code into 
pseudo-code instructions to be executed by the Supervisor. The 
Editor is used to enter and modify Pascal source programs. It may 
also be used to edit data files, or BASIC programs wnich have been 
LISTed to a disk or tape. These components are explained in detail 
within this manual. 

For a description of the various files included on the supplied 
diskette, refer to the "System Information" section of this 
manual. 


About the DOS 

Draper Pascal can be used with most populär Disk Operating 
Systems. It has been tested with Atari DOS 2.5, SpartaDOS 3.2d, 
and MYDOS. You should format a diskette with DOS on it to contain 
the Draper Pascal System. Since the Draper Pascal Supervisor is 
named AUTORUN.SYS, it will execute immediately after the disk is 
booted. For XL and XE Computers, you do not need to hold down the 
Option key while booting unless you are using SpartaDOS. If using 
SpartaDOS, you may want to rename AUTORUN.SYS to PASCAL.COM and 
create a STARTUP.BAT file containing the following two lines: 

BASIC OFF 
PASCAL 
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The Shareware Concept 


Draper Pascal is distributed on a Shareware basis. 

You may freely copy Draper Pascal for distribution under the 
Shareware concept, without Charge. 

You may NOT Charge any fee for the Draper Pascal program or 
documentation without our written approval. 

You may NOT distribute Draper Pascal or it’s documentation in 
connection with ANY commercial venture, product, publication or 
Service unless you read, sign, and send in the royalty-free 
license includea with this manual. 
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Ramdisk support 

Draper Pascal supports the use of the "Ramdisk" capability 
provided by using 3 DOS that supports a ramdisk like Atari DOS 2.5 
or SpartaDOS 3.x with an Atari Computer System having sufficient 
memory to support the ramdisk. While using this feature, the 
Editor takes less than two seconds to loaa and the Compiler takes 
less than three seconds. 

Diskette preparation 
for Ramdisk support 

To utilize the ramdisk support, you must make sure the DOS on your 
Draper Pascal diskette has everything in place to create the 
ramdisk. For example, with Atari DOS 2.5 make sure the disk also 
contains RAMD.1SK.COM. For SpartaDOS ,3.x,,you will peed RD.COM (or 
RD260.COM). These programs are provided with your Disk Operating 
System (DOS). 

To activate the Ramdisk feature for Draper Pascal 2.1, use your 
Version of DOS to rename the following three files. Consult your 
DOS manual if you need instruction on how to do the rename. 

Rename From this name: To this name: 

RAMDISK1.DAT COPYFILE.OBJ 

RAMDISK2.DAT COPYLIST.TXT 

RAMDISK3.DAT RAMDI SK.PCD 

Using the Ramdisk feature 
To use the Ramdisk feature, do the following: 

1. Boot your diskette and initialize the ramdisk. With Atari DOS 
2.5. this would be done automatica 11y if RAMDISK.COM is present 
on the diskette,at boot time, With SpartaDOS 3.x, you must 
execute RD.COM (or RD260.COM; specifying D 8 : as the drive 
number for the ramdisk. If you wish to use a drive number other 
than 8 , you must first edit COPYLIST.TXT and change the second 

1 ine to contain the desired drive number. With SpartaDOS 3.x, 
ramdisk intialization could be done automatical1y by adding RD 
D 8 : to the batch file STARTUP.BAT mentioned above. 

2. Start Draper Pascal. 

3. Enter ’1 *, for Run Program, followed by the name RAMDISK (since 
RAMDISK.PCD is to be executed). If an Error 138 occurs, it 
indicates that the ramdisk drive has not been properly 
initialized. An Error 170 might occur if one of the files being 
copied to the ramdisk is not found. This could happen if you 
renamed AUTORUN.SYS to PASCAL.COM as mentioned in 'About the 
DOS",,above, ,1 f this is the ca§e, verify that each file name 
contained within COPYLIST.TXT is spelled correctly. 


That s all there is to it. Your default drive will be set to the 
ramdisk drive number. This means that if you edit, run. or compile 
a program and don t specify a particular drive number (Dx:), the 
default will be assumed. 

The RAMDISK program works as follows: 

1. The source (input) disk drive number is read from file 
COPYLIST.TXT. 

2. The target (output) disk drive (ramdisk) number is read from 
file COPYLIST.TXT. 

( 
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3. A check is made to see if the ramdisk already contains one of 
the programs to be copied. If so, Processing continues with 
step 6, below. 

4. A machine language fast file copying subroutine (COPYFI LE.OBJ) 
is loaded into memory. 

5. Each remaining record of file COPYLIST.TXT is r§ad and the 
corresponding file is copied from the source drive to the 
target drive. 

6 . The default drive indicator is set to be the target drive 
number. 


The source code for this^program (RAMDI $K,. PAS) and the file copy 
subroutine (COPYF I LE .M65 ) are printed with the other source code 
listings in this manual. 
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Getting Started 

This section is intended to show by example how to use the Draper 
Pascal System, You will edit, compile, and run a sample program. 
Information displayed by the Computer is shown in normal type 
while responses to be entered by you are shown underlined with 

dashes (-). To begin with, make sure you have 48K RAM installed 

and no cartridge in place. Boot the disk now by placing it in disk 
drive 1 and turning on the power to the Atari Computer. After the 
Supervisor has fimshed loading, you will see a screen that looks 
1 ike this: 


DRAPER PASCAL 
VERSION 2.1 

1 - Run Program 

2 - Disk Directory 

3 - Compile Program 

4 - Edit a Program 

5 - Exit to DOS 

6 - List a file 

7 - Trace on 


Copyright 1989 
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4 Select the Editor 


DRAPER SOFTWARE 
EDITOR 


A 

C 

D 

E 

F 

I 

L 

M 

P 

Q 

S 

X 


- Add line(s) at end 


- Chan 

- Dele' 

- Edit 

- Fi ' 


ie 

:e 

a 


ine(s, 
ine(s, 
ine 


er menu 
Insert before 
List 1ine(s) 

Menu 

Print 1ine(s) 
Quit ,. , x 

Scan 1ine(s) 

Exit to Compi1 er 


1 ine 


A.C.D.E.F,I,L,M,P,Q,S,X,?->F 


Select Filer menu 


A 

D 

L 

S 


Append file 
Directpry list 
Load file 
Save file 
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L 


Load a fi1e 


Enter filename -> SAMPLET 


Enter the name of the file 
to be loaded. The name of 
the last file edited, 
compiled, or run will be 
filled in by the Editor. 
You may have to overtype 
it with the name shown. 


A,C,D,E,F,I,L,M,P,Q,S,X,?->L 

Line from -> 

Line to -> 


15: (* MY FIRST ED IT *) 

16: 

A,C,D,E,F,I,L,M,P,Q,S,X,?->L 


List the file on the 
screen 

Just press RETURN for 
'Line from' and 'Line to'. 
This will give a 1 ist of 
the entire program in 
memory. 


Let's insert a comment 
before line 15. 


Enter the data to be 
inserted when prompted for 
line 15. Just Dress .RETURN 
when prompted for line 16. 
This will terminate insert 
mode. 

List again to verify that 
the change was made 
correct 1 y. 


1 

2 

3 

Ar 

5 

6 

7 

8 
9 

10 
1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

A,C, 


PROGRAM KALEIDOSCOPE; 

VAR I,J,K,W,X:INTEGER; 

BEGIN 

MAXGRAPH(19); 

GRAPHICSC19)5 
X: =0 ; 

REPEAT 

FOR W:=3 TO 50 DO 
BEGIN 

FOR I:=1 TO 10 DO 
BEGIN 

FOR J:=0 TO 10 DO 
BEGIN 
K: = I + J ; 

COLOR(J*3/(l+3)+l*W/12); 
PLOT(1+8,K); 

PLOTfK+8.I) ; 

PLOT(32-1,24-K) ; 
PLOT(32-K,24-I); 

PLOTfK + 8 ,24-I ) ; 

PLOT(32-I ,K) ; 

PLOT(1+8,24-K) ; 

PLOT(32-K,I ) 

END 

END 

END 

UNTIL X=99 (* UNENDING LOOP *) 
END. 

D,E,F,I,L,M,P,Q,S,X,?->I 


Line -> 15 


Line from -> 
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Line to -> 


3 

4 

5 

6 
7 
3 
9 

10 
1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 
29 

A, C, 


PROGRAM KALEIDOSCOPE; 

VAR I,J,K,W,X:INTEGER; 

BEGIN 

MAXGRAPH(19) ; 

GRAPH I CS 119 ; ; 

X: =0 ; 

REPEAT 

FOR W:=3 TO 50 DO 
BEGIN 

FOR I:=1 TO 10 DO 
BEGIN 

FOR J:=0 TO 10 DO 
BEGIN 
K:=I+J; 

(* MY FIRST EDIT *) 

COLOR(J*3/(I+3)+I*W/12); 
PLOT( I +8,K ) ; 

K+8,l); v 
32-1 ,24-K) ; 
32-K.24-I); 

K+8.24- I ) ; 

32-1.K); 
l+8,24-K); 

32-K , I ) 


PLOT I 
PLOT ( 

PLOT ( 

PLOT ( 

PLOT ( 

PLOT ( 

PLOT ( 

END 
END 
END 

ÜNTIL X=99 (* UNENDING LOOP *) 
END. 

D,E,F , I ,L,M,P,Q,S,X,?->F 


A - Append f i 1 e 
D - Directory list 
L - Load fi1e 
S - Save fi1e 


Let s save the program 
back to disk drive 1 
under the same name. 


S 

Enter filename -> SAMPLE 1 

A,C,D,E,F,I,L,M,P,Q,S,X,?->X Now 1 et’s exit directly to 

the Compi1 er. 

Draper Software 
Pascal Compiler 
Version 2.1 



Enter Fi1ename: 

SAMPLE 1 Enter name of program to 

- be compiled. The name of 

the last program edited, 
compiled, or run will be 
fi 1 l ed in by the 
Compi1 er. 

Enter List Output Filespec 
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Default is E: 


0000 
0000 
0003 
0003 
0017 
00 1 B 
001 E 
0022 
002A 
0035 
QQ3D 
0048 
004F 
005A 
0062 
008A 
0098 
00A6 
00B8 
00CA 
OODC 
OOEA 
OOFC 
010A 
01 OA 
010C 
01 IC 
0142 
0147 
ADDR 


PROGRAM KALEiDOSCOPE; 

VAR I,J,K,W,X:INTEGER; 

BEG I N 

MAXGRAPH(19); 

GRAPHICS(19) ; 

X: =0; 

REPEAT 

FOR W:=3 TO 50 DO 
BEG I N 

FOR I:=1 TO 10 DO 
BEG IN 

FOR J:=0 TO 10 DO 
BEG IN 

K ; = i + j • 

c6l0R(J*3/(I+3)+I*W/12); 
PLOTC r +8,KJ; 

PLOT f K+ 8 ,I1; 

PLOTC32-1,24-K); 

PLOT(32-K,24-I); 
PLOTfK+8,^4-I); 

PLOT (32-1,K); 

PLOTf1+8,24-K); 

PLOT(32-K,I) 

END 

END 

END 

UNTIL X=99 (* UNENDING LOOP *) 
END. 

NAME 


0003 I 
0004 J 
0005 K 
0006 W 
0007 X 

5 Compiler table entries used 
*** Program Execution Completed *** 
Highest Stack Address Used = $AFF 8 
<S?ART>Repeat,<SELECT>Menu,<ESC>Exit 


DRAPER PASCAL 
VERSION 2.1 

1 - Run Program 

2 - Disk Directory 

3 - Compile Program 

4 - Edit a Program 

5 - Exit to DOS 

6 - List a fi 1 e 

7 - Trace on 


Just press RETURN at this 
point to have the compile 
list directed to tne 
screen. 


Press the SELECT key at 
this point to take us to 
the main menu. 


Copyright 1989 
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1 


Select ' 1' to run the 
program that was just 
compi1ed. 


Enter name of program to be run 
SAMPLE 1 


The name of the last 
program §djted, pompiled, 
or run will be filled in 
by the main menu program. 
Overtype the name if you 
want to run a different 
program. 


At this point you should have a nice kaleidoscope pattern being 
displayed on your television screen. To stop it, press the BREAK 
key. To repeat execution, press the START key. to return to the 
main menu, press the SELECT key. To exit to DOS, press the ESC 
key. 

Another program, SAMPLE2, is also provided for you to practice 
with. It will display Roman numerals for powers of two between 1 
and 4096. Compi1e it, turn on the trace via the main menu, and run 
it. After it is finished, press CTRL-T to display the trace table, 
and CTRL-S to display the stack contents. When prompted for 
‘Where? Filespec , enter ’E:'. For a description of the stack 
display line, refer to the 'DUMPSTK' command in the 'Pascal 
Definitions' section of the manual provided to registered users. 
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Main Menu 

The Main Menu is the initial program to be run by the Supervisor. 
It is written in Pascal. The source code is provided for it and 
you may customize it as you see fit. The disk filename for the 
source is 'INIT.PAS'. The pseudo code program that is initial ly 
executed is 'INIT.PCD . It would be wise to copy 1NIT.PCD to 
another name to be used in case your compile of the menu program 
is not successful. Or, you could rename INIT.PAS to something 
eise, like NEWINIT.PAS, and compile it to produce NEWINIT.PCD. 
Then you can use the run option (mentioned below) to test your 
modified program. 

The Main Menu appears as follows: 

DRAPER PASCAL 
VERSION 2.1 

1 - Run Program 

2 - Disk Directory 

3 - Compile Program 

4 - Edit a Program 

5 - Exit to DOS 

6 - List a file 

7 - Trace on 



Each of the menu options will now be explained: 


1 - Run Program 

Use this option to execute a program that has previously been 
successfully compiled. You will see the following prompt: 

Enter name of program to be run 

The Main Menu program will fill in the name of the last program 
edited, compiled, or run. If this is the one you want, all you 
have to do is press RETURN. If it is not the one you want, just 
overtype the name shown with the one you want. 


2 - Disk Directory 

option will provide you with 


This 
f i 


al 1 


a 1ist of 

. les on one of your disk drives. You will _ .... ... ... 

'Fi1espec?' . If you just press RETURN,at this point, you will 
a list of all files on the default drive. If you enter D2: , 
will see all files on drive 2. To show only selected files 
dcards in the normal manner. For example, enter 'Dl 


wi __ 

show only f i l 
end of the 1i. . 
continue. After 
re-disp1ayed. 


files named 
ist, you 


pressing any key 


with an^ suffix 

the Main Menu 


, or selected, 
receive the prompt 

see 
you 

ic o i US Ö 

I N I T. * ' to 


wi' 1 ! l T be prompted to /press any i key tö 


■from drive one. 
ki 

will be 


At the 
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3 - Compile Program 

This option sends you directly to the Pascal Compiler. You will be 
prompted for the name of the program to be compiled, after the 
Compiler is loaded. If you have already edited, compiled, or run a 
program, the name will be shown and may be used by just pressing 
the RETURN key. For more information, refer to the section of tnis 
manual on The Compiler . 


4 - Edit a Program 

Control is transfered to the Draper Pascal Editor when this option 
is chosen. For more information, refer to the section of this 
manual on "The Editor". 


5 - Exit to DOS 

Pascal execution is terminated by this option. Control is passed 
to the Disk Operating System. 


6 - List a file 

This convenience entry is provided to allow you to view, on the 
screen, any text file on disk or tape. You are prompted to enter 
the name of the file to be listed. The file is assumed to reside 
on the default drive if a colon (:) is not found within the name 
you specify. At the end of the list, you will be prompted to press 
any key to continue. After pressing a key, the Main Menu will 
appear again. 


7 - Trace on 

The wraparound internal trace may be turned on (or off) with this 
option. The trace is used only for debugging purposes and may be 
viewed at program termination time by pressing CTRL-T. Program 
execution speed is slightly degraded whi1e the trace is active. 

You will be prompted to enter the number of trace entries to be 
maintained by the System. Each trace entry requires 10 bytes of 
storage at tne high end of memory. The trace may not be used 
during graphics displays because screen memory is also at the high 
end or memory. To turn the trace off and remove the memory 
allocation of the trace table, enter zero when prompted for the 
number of entries to maintain. The trace format is described in 
the "System Information" section of this manual. 
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The Editor 

The Editor is used to create, modify, and save Pascal source 
files. It may also be used to process other text type files, like 
BASIC programs which have been LISTed to disk or tape. It is a 
line oriented editor. Combined with some type of formatting 
program, it may be used for word Processing app1ications. The 
entire source to be edited must be in memory at one time. If your 
Pascal program will not fit within the limits of the Editor, then 
you can use the INCLUDE feature of the Compiler to allow Segments 
of a program to be edited separately. Refer to the section on "The 
Compiler for mpre information on the INCLUDE feature. Source code 
for the Editor is listed under Editor Program Source Listing" in 
this manual. Some key points to be noted about this editor are as 
follows: 

1. Each line is referred to by line number, however. po line 
numbers are stored either internal ly or on the disk or tape. 

2. Each line may contain up to 80 characters. This may bechanged 
by altering the constant called MAXLENGTH and re-compiling the 
Editor. A source listing of the Editor is provided to 
registered users. 

3. A maximum of 250 lines of text may be edited at one time. This 
may be changed by altering the constant called MAXLINES and 
re-compiling the Editor. An increase in MAXLINES should 
correspond with a decrease in MAXLENGTH, and vice versa. A 
source listing of the Editor is provided to registered users. 

4. When entering or editing a line, the line must be terminated 
by pressing the RETURN key. 

5. As lines are inserted into. or deleted from, the source file, 
the remaining lines are automatica 11 y renumbered. 

6 . A line of source may extend onto more than one screen line. 

7. Due to Operation of the Atari operating System, a blank line 
may not be directly entered. To enter a blank line, you must 
first enter a non-blank character (like a period), then use 
the Editor Change command to change the character to a space. 

8 . Input operations (Append and Insert) are terminated by 
entering a null line (just pressing the RETURN key). 

9. The BREAK key is disabled by the Editor to prevent loss of 
data. It is enabled again at termination of the Editor. 

10. If you enter or change data then try to Quit or exit to the 
Compiler without first saving the data onto disk, you will 
receive an option to either save the data or ignore it and 
continue. 

11. Cassette tape files may be loaded, edited, and saved by the 
Editor..The Compiler does not support tape input, though. You 
would first have to load the file from tape, witn the Editor, 
then save it to disk. 


EDITOR COMMANDS 


General Prompts 


The following prompts are general in nature and are common among 
many of the editor commands to be described below. 
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Line -> 

You are prompted to enter one line number, as opposed to a ränge 
of line numbers. It is used by the INSERT Editor command and 
refers to the line before which the inserted line(s) will be 
p1aced. 

Line from -> 

This is the first prompt for a ränge of line numbers. Enter the 
]ow number of the ränge. If you just press RETURN, line number 1 
is assumed. 

Line to -> 

Enter the high line number in the ränge desired. If only on$ line 
is to be acted upon, that number must be entered in both this 
prompt and the one mentioned above. If you just press RETURN, the 
nighest line number in the buffer will be assumed. if the number 
you enter is less than the Line from value, the Line from' 
value will be used here. 

Enter fi1ename -> 

This prompt is shown when loading, appending, and saving files. 

The last filename used is filled in after tne arrow. If this is 
the file you wish to use now, then all you have to do is press 
RETURN. A full filespec may be entered, but is not required. If a 
colon (:) is not found within the filename specified, then the 
default drive is assumed. If the filename given does not contain a 
period (.), then a suffix of .PAS is assumed. 

The Commands 


A - Add line(s) at end 

This command is used to add 1ines after the last line currently in 
the buffer. If the buffer is currently empty, then line 1 will be 
assumed as the starting point. In this manner, you can create a 
new file if one has not been loaded. You can append as many lines 
as you like. When you are finished entering lines, just press 
RETURN without entering any data on the line (null Tine). 

Prompts used: None 


C - Change 


1 ine(s) 
command 


The Change command allows you to change one specified string 
pattern to another for the first occurance in each line witnin the 
ränge of lines specified. After being prompted for the line number 
ränge, you are asked for the data to 'Change from ->' and 'Change 
to -> . Enter any string of characters at each prompt. Imbedded 
blanks are allowed. If you just press RETURN for the 'Change 

occurance of the 'Change from’ data - 


prompt, the first 
line will be deleted. 
Prompts used: Line from 

D - Del ete 1ine(s) 


Line to', 'Change from' 


within 
'Change to 


to 
each 


This command allows you to delete a line or a ränge of lines from 
the file in memory. The whole file in memory will be deleted if 
you just press RETURN when prompted for botn 'Line from' and 'Line 
to'. Be aware that all lines following the ränge deleted will be 
renumbered, to fill the gap just made. If you desire to delete a 
number of line ranges, delete those with the highest numbers first 
and proceed toward the beginning of the file. Tnat way, you won’t 
have to do a LIST after each ränge delete to find out what the new 
line numbers for the following line$ are. 

Prompts used: 'Line from', 'Line to 
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E - Edit 1ine(s) 

The Edit command is used to edit (or make individual changes to) a 
line or ränge of lines that already exist in memory. If a ränge is 
specified, the lines are presented to you one at a time. As each 
line is presented, you may use any of the normal Atari editing 
kevs (like right and left Cursor, insert, delete), to alter the 
data. Just press RETURN when you are fimshed with each change. If 
you don't want to make a change to a line shown, just press 
RETURN. 

Prompts used: 'Line from*, 'Line to' 

F - Fi1 er menu 

The Filer.is a sub$ystem which handles communicatiqn with an 
external device (disk or tape). The features provided are as 
fo11ows: 

A - Append fi1e 

A file is read from disk or tape and added to the end of the 
file currently in memory. The data in memory prior to the 
append remains unchanged. 

Prompts used: 'Enter filename’ 

D - Directory list 

This command is used to provide a directory list of the 
different fi1 es on a diskette. You are prompted for 
'Filespec?'. Enter the disk drive number and selection 
criteria for the directory list. If you just press RETURN you 
will see a directory list of all files on the default drive. 

To see all files on drive two. enter 'D2:' or 'D2:*.*'. To see 
only files with a suffix of PAS on drive one, enter 
'Dl:*.PAS’. 

Prompts used: Filespec? 

L - Load file 

This is the way to load a file into memory from disk or tape. 

If any data was currently in memory, it is deleted and 
replaced by the file read in. 

Prompts used: 'Enter filename' 

S - Save file 

Data is copied from memory to disk or tape with this command. 
The data currently in memory remains unchanged. You are 
prompted for filename and may use whatever name you wish. It 
is not necessary to save a file under the same name as was 
used to load the file. You should save data to disk frequently 
if you are making extensive changes. That way you won t have 
to re-do as much if something goes wrong. 

Prompts used: 'Enter filename 

I - Insert before line 

This command allows you to insert one or more lines at any point 
within the file in memory. The inserted data is p1aced before the 
line number you specify. To terminate insert mode, just press 
RETURN without entering any data on the same line (null line). 

Note that all lines after the point of insertion will 
automatically be renumbered. 

Prompts used: Line -> 
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L - List 1ine(s) 

One or more lines of data from memory are listed on the screen 
with this command. Düring the list, you may stop the scrolling by 
Pressing either the space bar or RETURN. To resume scrolling, 
press any other key other than ESC. The ESC key may be pressed to 

P rematurely terminate th$ listing. 
rompts used: Line from , Line to 

M - Menu 

The main Editor menu is presented in response to this command. A 

P uestion mark (?) may also be used to display the main menu. 
rompts used: None 

P - Print 1ine(s) 

This command is used to create a list of data in memory on a 
Printer attached to the Atari parallel port (P: ) . Internal line 
numbers are also directed to the Printer although they do not 
actually exist within the file on disk or tape. 

Prompts used: Line from’, 'Line to’ 

Q - Quit 

This command is used to exit from the Editor when you are finished 
editing your data. Control is given to the Main Menu program. If 
you have changed the data in memory and have not saved it prior to 
quitting, you will be given the Option of saving the data or 
ignoring tne changes and exiting. If you are gomg to comp i 1 e a 
Pascal program immediately after quitting the Editor, you may use 
the X command described below. 

Prompts used: None 

S - Scan 1ine(s)' 

This command allows you to display all lines within a specified 
ränge which contain a specified character string. The character 
string may contain any characters, including imbedded blanks. To 
temporarily stop the listing, press either the space bar or 
RETURN. To abort the listing, press ESC. Press any other key to 
continue as normal. 

Prompts used: 'Line from', 'Line to’, 'Scan for' 

X - Exit to Compiler 

This command terminates the Editor and transfers control directly 
to the Compiler. If the file in memory has been changed but not 
saved prior to the Exit command, you will be promptea to either 
save the file or ignore the changes and proceed to the Compiler. 
Prompts used: None 
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The Compi1 er 

The Compiler is used to translate words that we humans understand 
into "words” that the Computer can understand. The Computer words 
are referred to,as pseudo-code, or p-code for short. These 
pseudo-code instructions are understood and executed by the 
Supervisor. 

This is a single pass goal oriented Compiler. It expects the 
proper syntax for a Statement. If correct syntax is not found, the 
compilation stops, and an error number with associated text 
description is displayed. At this.point, you are given the Option 
of quitting or returmng to the Editor to correct the problem and 
do the compile again. 

The Compiler itself is written in Draper Pascal and occupies about 
28K of RAM memory space. 

The first prompt from the Compiler is 'Enter filename:'. The name 
of the last program edited, run, or compil^d is fi11ed in for your 
convenience. If this is the one you want. just press RETURN, lf it 
is not the one you want, just overtype it with the name you 
desire. The name you provide will become the new default name for 
the Editor, Compiler, and Main Menu 'Run' Option. No suffix is 
allowed when specifying filename. The Compiler will add the 
Standard '.PAS' to it for you. If the source does not reside on 
the default disk drive, then you must prefix the filename with 
'Dn:' where ’n' is the disk drive number where the source resides. 
The default disk drive is normal ly disk drive number one, but is 
changed to the Ramdisk drive number if you are taking advantage of 
the Ramdisk feature of a Disk Operating System that supports it. 
Ramdisk initia1ization is explained in the manual provided to 
registered users. 

The next prompt is 'Enter List Output Filespec'. The default (if 
you just press RETURN) is the screen (E:). The 1ist output may go 
to any normal output device, such as printer (P:) or disk 
(D:LISTNAME.PRN) . 

A number of additional points are mentioned below: 

1. Comments are delimited by '(*' on the left end and '*)' on the 
right end. Any characters may appear within comments. Comments 
may appear anywhere within tne program. 

2. ’lnclude' fi1 es are supported. You may have procedures, 
functions, or any part of a program included in a compile, 
even though it is not actually part of the file being 
compiled. It is a Variation of a comment which allows you to 
do this. The format is as follows: 

(*$! XXXXXXXX *) or (*$l D1:XXXXXXXX *) 

The dollar sign and I' must be right next to '(*' and must be 
followed by one space. Then you may mention the D' for disk 
and drive number (if other tnan the default drive is to be 
used). Fol low it with a colon (:) and the filename. A suffix 
of .PAS will be automatical1y added to the file name. Then 
have at least one space and '*)’• 

3. Pascal source files must reside on disk. 

4. The output pseudo-code from the compile will be directed to 
the same disk drive that the Pascal source resides on. It will 
be created with a filename suffix of .PCD . If you have 
multiple disk drives and the source and pcode will not both 
fit on one disk, have a small file on the output disk with an 

include' for the source which resides on the other disk. 

5. The hexadecimal offset of the pseudo instructions generated is 
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§ iven at the left side of the output listing. This offset may 
e useful for debugging purposes. It may be referred to when 
looking at a program trace (see TRACEON in the Pascal 
Definitions section of the manual provided to registered 
users). It also may be referred to in case of an error message 
or termination caused by pressing the BREAK key. The offset 
shown may not always be accurate. If not exact, the values are 
very close. 

6 . The name and stack offset of each variable defined is shown at 
the end of the compile listing. The offset value is shown in 
hexadecimal. Each stack entry is two bytes wide. The first 
three stack entries are reserved for System use. Therefore, 
the offset of the first variable will be 0003, which is 
actually six bytes into the stack. If a variable is defined 
within a procedure or function, the offset shown is relative 
the beginning of that procedure or function. 

7. The program is ready to run immediately after the compile is 
finished. No linking is required. (Some Pascal Systems require 
linking of output code after the compile and before 
execution). 

8 . Nested procedures are supported. You may define one procedure 
w.ithin another . 

9. Recursive procedures are supported. A procedure may call 

itself. If variables are defined within the procedure. they 
are cleared with each entry into the procedure and refreshed 
upon exit from the recursive procedure call. 

10. No forward references are allowed. A procedure may not be 
referenced before it is defined. In most cases, nesting the 
procedures will take care of this problem. 

11. Double density disk drives are supported for both source and 
pcode files. The pcode will be written to the same drive that 
the initial source is taken from. 

12. Only integer type Parameters may be passed to procedures and 
functions. Other types of data may be passed by using global 
type variables setup at the beginning of the program (not 
within a procedure or function). 

13. A function may only return an integer type value. Procedures 
do not return values. 

14. Hexadecimal constants and literals are prefixed by dollar 
signs ($). 

15. To write out an integer in hexadecimal format, precede the 
variable name with a percent sign (%). 

16. A total of 170 Compiler table entries may be used. One table 
entry is used for each variable definition, procedure name, 
function name, and parameter name used with procedures and 
functions. Table entries for variables defined within 
procedures are re-used following the 'END' for that procedure. 

The number of table entries used within a compile is displayed 
at the end of the output list from the Compiler. 

17. The time needed to compile a program can be reduced by turning 
off the ANTIC chip within the Computer. This turns off the 
display to the ?creen yet gives a fairly significant increase 
to the Atari s internal speed. In a normal Pascal program, you 
can have POKE(559,0) to turn it off and P0KE(559,34) to turn 
it back on. But a special compile time Option is provided to 
make use of this feature to speed up compiles. It is as . 

follows. Have a statement (*$§+*) to turn the ANTIC off ( 

(increase speed), and use to turn the ANTIC on (resume 
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normal speed). These options may 
program. The ANTIC is automatical 
termination and at time of error 


appear anywher 
ly turned back 
(if any). 
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The Supervisor is 
which simulates a pseudo 
executes the pseudo code 


The Supervisor 

a high performance mach ine language program 
16-bit stack oriented Computer. Tt 
that is generated by the Compiler. 


1 t is loaded into memory by disk operating System at the hex 
location $1D7C, which is just above DOS in memory. It should work 
with any DOS that allows a program to load at that address, such 
as Atari DOS 2.IS, Atari DOS 2.5, or SpartaDOS Version 2.x or 
higher. A message will be displayed if the Supervisor cannot be 
loaded at the proper location. 


The disk filename for the Supervisor s object code is 
AUTORUN.SYS'. )t may be renamed to anything you desire, such as 
PASCAL . COM ' , but will not be automat i ca 1 1 y loaded when the disk 
is booted if the name is other than AUTORUN.SYS . To start the 
Pascal System from the DOS menu, use the ’L', binary load, Option 
to load AUTORUN.SYS' into memory. Execution will begin 
automatically. 


The Supervisor begins execution by loading and executing the 
Pascal program 'INIT.PCD’ from the default drive, which is always 
disk drive 1 immediately after loading the Supervisor. 'INIT.PCD' 
is the name of the main menu program. You may substitute any 
compiled Pascal program of your own by naming it 'INIT.PCD'. In 
this manner, you can have a true turnkey system where your program 
begins execution after booting the disk. 

After termination of each Pascal program, the Supervisor gives you 
a choice of what to do next. You are prompted with the following 
1 i ne: 


<START>Repeat,<SELECT>Menu,<ESC>Exit 

If you press th$ START key, your Pascal program will execute again 
from the beginning. If you press the SELECT key, control will be 
transfered to the main menu program (INIT.PCD). If you press the 
ESC key, you will exit to the DOS utility menu. You also have two 
other options at this point. They are both used for debugging 
purposes. If you press CTRL-S (the S key while holding down the 
CTRL key), the stack values, at termination time, will be 
displayed. If you press CTRL-T, the internal trace table, if 
active, will b$ displayed. Witn either of these two debugging 
options, you will be asked where the display should be sent By the 
prompt WHERE? (FILESPEC)'. To see it on the screen, enter ’E: . 

It also may be sent to printer or disk by following normal 
filespec naming conventions. If the display is sent to the screen, 
you may stop tne scrolling by use of the space bar. Press the ESC 
key if you have seen enough and wish to return to the Supervisor 
termination prompt. Any other key causes scrolling to continue as 
normal. 
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Pascal Definitions 

ABS FUNCTION ABS(Number):INTEGER; 

This function returns the absolute value of 'Number'. In 
effect, all it does is return the value of 'Number' with a 
positive sign. Number may be any integer expression. 

Example: PROGRAM ABS DEMO; 

VAR AJ,J:INTEGER; 


BEGI N 
J : = - 7 ; 

AJ := ABS(J); 

WRITELN('ABS OF -7 IS ’,AJ) 
END. 


BASIC Equivalent: AJ = ABS(J) 


ADDR FUNCTION ADDR(Var):INTEGER; 

This function returns the integer absolute address of the 
specified variable. The variable may be of any type. If it is 
an element of an array, the address returned is that of the 
particular element specified. For a description of the data 
formats, see the item titled Internal Data Formats in the 
System Information’ section of this manual. 

Example: PROGRAM ADDR DEMO; 

VAR A,B:INTEGER; 


BEGIN 

A := ADDR(B); 

WRITELN('ADDRESS OF B IS ’,A) 
END. 


BASIC Equivalent: A = ADR(J$) (Applies only to string 
variable in Atari BASIC) 


AND 

This operator sets the resulting condition as true if both 
the left and right factors around it are true, otherwise, the 
condition is set to false. Parentheses should surround the 
factors on each side. 

Example: PROGRAM AND DEMO; 

VAR A:INTEGER; 


BEGIN 

IF (A>0) AND (A<7) THEN 
WRITELN('VALUE WI TH IN 

END. 


RANGE ' ) 


BASIC Equivalent: Same as Pascal 


ARCTAN FUNCTION ARCTAN(Var):REAL; 

ARCTAN is a REAL built-in function that returns the value of 
an angle whose tangent is equal to the value of the variable 
specified. Var may be either a REAL variable or an INTEGER 
variable, but the value returned is always REAL. 
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Example: PROGRAM ARCTAN DEMO; 

VAR RI , R2:REAL? 


BEGI N 

WRITELN('Enter a number 
READ(R12; , s 

R2:=ARCTAN(R1); 

WRITELN('The ARCTAN of 
END. 


’ ,R1, ’ 


i s 


' ,R2) 


BASIC equivalent: R2=ATN(R1) 


ARRAY 


ARRAY 

ARRAY 


[Numberl] OF Type 
[Number 1,Number2] OF Type 


ARRAY specifies that multiple occurances of a variable are to 
be defined. Either one or two dimension arrays may be 
defined. For single dimension arrays, 'Number2' and the comma 
that precedes it must be omitted. Numberl' and 'Number2 may 
be either integer numbers or previously defined integer 
constants. They specify the number of elements to be 
dimensioned. For two dimension arrays, 'Numberl' represents 
the number of rows, while 'Number2' represents the number of 
columns within eacn row. Space is reserved for 'Number'+1 
entries because occurance numbers of zero through 'Number 
are allocated. This means that ARRAY[2] defines space for 
three entries, numbered 0, 1, and 2. ARRAY[2,3] defines space 
for twelve entries; rows 0 through 3 with four columns (0 
through 3) in each row. While using an array, note that the 
index for the element in the array, which is specified within 
parentheses must either be an integer number or an 

integer type variable. 


Examples: PROGRAM ARRAY DEMO; 

CONST SIZE=4;~ 

VAR I.ROW,COL:INTEGER; 

Al : A^RAY 3] OF INTEGER; 
A2: ARRAY SIZE] OF STRING; 
A3: ARRAY[2,3] OF INTEGER; 


BEG IN 

FOR I:=0 TO 3 DO 
A1( I ) : = l ; 

FOR I:=0 TO SIZE DO 
A2 ( I ) : = " ; 

FOR ROW:=0 TO 2 DO 


END, 


FOR COL:=0 TO 3 DO 

A3(ROW,COL):=ROW+COL; 


BASIC Equivalent: DIM A(3) 

No equivalent for BASIC string variables. 


ASC FUNCTION ASC(Ovar):INTEGER; 

This function returns the ASCII value (integer) of the 
specified character variable. 

Example: PROGRAM ASC DEMO; 

VAR I:INTEGfR; 

CH:CHAR; 

BEG I N 
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CH: = 'A’ ; 

I := ASC(CH); 

WRITELN(*THE ASCII VALUE OF ',CH,’ IS ’,1) 
END . 


BASIC Equivalent: I = ASC(CH) 


BEGIN 


BEGIN marks the start of a block or compound Statement within 
a Pascal program. END marks the termination of the block or 
compound Statement. Each statement between the BEGIN and the 
END, except for the last one, should be followed by a 
semicoIon ( ;) . 

Example: PROGRAM BEGINJDEMO; 

BEGIN 

WRITELN( My name is Fred ); 

WRITELN; 

WRITELN 
END; 

BASIC Equivalent: None 


BLOAD PROCEDURE BLOAD(Program); 

This exclusive built-in procedure loads the specified program 
(or data) from disk into memory. The program to be loaded 
should be in the Standard DOS load format as generated by an 
appropriate assembler or the binary save function of DOS. 
’Program’ should be specified in the normal filespec format, 
including extension, if any. The object loaded will not 
automatical1y begin execution after completion of the load, 
as some programs do. The machine language program will be 
executed by use of the CALL built-in procedure. Refer to the 
CALL description for further information. The IORESULT value 
should be checked after the BLOAD to verify that the program 
did, in fact, exist on the disk. 

Explanation for example: 

The Pascal program below sends the ASCII value of each of the 
upper case letters to the 6502 assembler subroutine. The 
subroutine changes the character to inverse and then changes 
it into a lower case character before returning control to 
the Pascal program. The Pascal program then retrieves the 
character from the subroutine, prints it on the screen, and 
repeats until the alphabet is complete. 

Example: PROGRAM BLOAD DEMO 1; 

VAR I:INTEGER! 

CH:CHAR; 

BEGIN 

OPTIONS(0 
BLOAD('D: 

OPTIONSM 
IF IORESU 
WRITELN 
FOR I:=AS 
BEGIN 
POKE 
CALL 
CH: = 

WRITE(CH 
END; 

WRITELN 


;$600.I) ; 
.$601 ) ; 
>EEK($600) 


+_ 

£ 


EST.OBJ' ) ; 


<> 0 THEN 
‘TEST.OBJ NOT ON DISK 
(’A') TO ASC(’Z') DO 
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END. 


*** 6502 Assembler subroutine used in above demo 
10 *=$600 
20 ADDR1 .BYTE 0 

30 LDA ADDRl Qet character from Pascal 
40 ORA #$80 Make character inverse 
50 CLC Prepare for add instruction 

60 ADC #32 Make character lower case 
70 STA ADDRl Put back character for Pascal 
80 RTS Return to Pascal program 

90 .END 


The capability i 
regigter, and th 
mach ine language 
should be stored 
values for the X 
168 ($A7 and $A8 
the Pascal progr 
register, and Y 
locations. Using 
be made up as fo 


s also provided for , the , acgumu1ator ,, the X 
e Y register to be imtianzed for the 
programs use. The value for the accumulator 
into memory location 166 ($A6). The initial 
and Y registers go into locations 167 and 
) respectively. Wnen control is returned to 
am, tne ending values of the accumulator, X 
register may 5e found in these same 
tnis techmque, the same demo program cou 1 d 
1 1 ows: 


Example: PROGRAM BLOAD DEMO_2; 

VAR I:INTEGER; 

CH:CHAR; 

BEGIN 

OPTIONS(O); 

BLOAD( D:TEST.OBJ ); 

OPTIONSC1); 

IF IORESULT <> 0 THEN 

WRITELNf'TEST.OBJ NOT t ON DI SK ’ ) ; 
FOR l:=ASC( , A V ) TO ASC(’Z') DO 
BEGIN 

POKE($A6,I); 

CALL($600 j: 

CH:=PEEK($A6); 

WRITE(CH) 

END; 

WRITELN 
END. 


*** 6502 Assembler 
10 *=$600 
20 ORA #$80 
30 CLC 
40 ADC #32 
50 RTS 
60 .ENO 


subroutine used in above 

Make character inverse 
Prepare for add_instruction 


Make character 
Return to Pascal 


lower case 
program 


demo 


BASIC Equivalent: None, however some BASIC programs POKE 
machine language programs into memory after REÄDing the ASCII 
values for eacn byte of the program as contained in DATA 
statements. 


BOOLEAN 

BOOLEAN is a type code which can represent one 
TRUE of FALSE. The actual value is either zero 
one for TRUE. A BOOLEAN variable can be used to save the 
result of a condition. 


>f two states, 
-or FALSE or 


Examp1e: 


PROGRAM BOOLEAN DEMO; 
VAR ANSWER:BOOLEAN; 
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CALL 


CASE 


BEG I N 

ANSWER:=TRUE; 

ANSWER : = FALSE ; 

ANSWER:= X < 0: 

ANSWER: = (X < 0) OR (X > 99) 
END. 


BASIC Equivalent: None 


PROCEDURE CALL(Address); 

The CALL procedure tcansfers executiqn to a machine.1anguage 
program at the specified address. Address is any integer 
expression, which includes hex constants. 1t is equivalent to 
the assembler Operation JSR (jump to subroutine). The 
subroutine should return control to the Pascal program by 
using the RTS (return from subroutine) Operation. No 
Parameters are passed to the subroutine directly, so the 6502 
stack will not be loaded with a number of Parameters, as is 
done by Atari BASIC. This simply means that the machine 
language subroutine should not have a PLA (pull accumulator) 
instruction at its start as is customary with machine 
language subroutines called from an Atari BASIC USR 
instruction. If the subroutine does begin with PLA and no 
Parameters are being passed, you can just have the call refer 
to the address of tne byte after the PLA instruction. 

However, the accumulator, the X register, and the Y register 
may be initialized before a call to the subroutine and 
inspected after returning from the subroutine. Refer to the 
explanation under BLOAD for more details. 

Example: Refer to BLOAD example 

BASIC Equivalent: None, but quite similar to the USR 
instruction, as mentioned above. 


CASE exprl OF 


const1 
const2 


stmt1; 
stmt2; 


END; 

CASE exprl 


ELSE stmtx 
END; 


constn : stmtn 


OF constl 
const2 

» t i 

constn 


stmt1; 
stmt2; 

stmtn 


The CASE statement compares the result of an expression with 
several constants to determine the appropriate statement to 
be executed. 


Examp1e: 


PROGRAM 
VAR DAY: 


CASE DEMO; 
INTESER; 


BEGIN 

WRITE('Enter 
READ(DAY); 
CASE DAY OF 


day number ’) 


1 

2 

3 

4 

5 


WR ITELN 
WR ITELN 
WR ITELN 
WR ITELN 
WR ITELN 


’Monday'): 
’Tuesday ); 
'Wednesday 
Thursday ) 
'Friday'); 


); 
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6 : WRITELN('Saturda 

7 : WR ‘ ' 

ELSE 

WRITELN( 

END 
END. 


TELN('Sunday' 
nva1id day 



number') 


BASIC Equivalent: None 


CHAR 


This is a type code assigned to variables to be used in 
character format. For the reading of character type 
variables, one character of data is transfered from the input 
device to the vai? i ab 1 e ., No carriage return (RETURN) is 
required to terminate the input. 

Example: PROGRAM CHAR_DEMO; 

VAR CH:CHAR; 


BEGIN 

READ(CH); 

CASE CH OF 

A' : WRITELN 
’B’ : WRITELN 

END 
END. 



BASIC Equivalent: None. 


CHR FUNCTION CHR(expr1):CHAR; 

This function changes an integer value into a character 
format. 'exprl' may be any integer expression. If the value 
of 'exprl' is greater than 255, then the ASCII value of the 
character value returned will be 'exprl' modulo 256. CHR 
must be used if it is desired to write a character which is 
not a normal letter or number, such as sending control codes 
to a printer or Clearing the screen. The CHR(125) in the 
following example is the proper code for Clearing the screen. 


Example: PROGRAM CHR DEMO; 

VAR CH:CHAR ; 

I : INTEGER; 

BEGIN 

WRITE('Enter a number between 0 and 255 '); 
READ(I); 

CH:=CHR(I); 

WRITELNCCHR(125),'Character equivalent is ’,CH) 
END. 

BASIC Equivalent: CH=CHR$(I) 


CLOSE PROCEDURE CLOSE(File); 

This built-in procedure closes a previously opened file. 

File may either be a variable of type FILE, or an absolute 
IO<?B number, such as #1 . It does not hurt to close a file 
which is already closed. Multiple fi1 es may be specified if 
separated by commas. 

Example: Refer to examples for EOF and EOLN 
BASIC Equivalent: CLOSE #2 
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COLOR PROCEDURE COLOR(Number); 

This built-in procedure determines the data to be stored in 
the display memory for all subsequent PLOT and DRAWTO 
built-in procedures. It's purpose is identical to that of the 
COLOR command in BASIC. Please refer to your Atari BASIC 
manual for further information. Number may be any integer 
expression. 

Example: Refer to example for GRAPHICS 
BASIC Equivalent: COLOR 2 


CONCAT PROCEDURE CONCAT(Parm1,Parm2,...):STR ING; 

This built-in function returns a string value equal to the 
concatenation of all Parameters specified in the CONCAT 
function. These Parameters may be of type string constant, 
string variable, or character variable. 

Example: PROGRAM CONCAT_DEMO; 

VAR PGMNAME:STR ING; 

BEG I N 

WRITEC Enter file name ’); 

READLN(PGMNAMEj; 

PGMNAME := CONCAT(PGMNAME,.TXT’); 

END. 

BASIC Equivalent: PGMNAME$(LEN(PGMNAME$+1))='.TXT’ 


CONST CONST name1=va1ue1; name2=va1ue2; ... 

CONST is used to declare constants to be used within a 
program. The value of a constant cannot be changed. The 
values may be of type integer or real. String constants are 
not permitted. The most efficient method for simulating 
string constants is to declare space for them with the VAR 
declarative, then read in the values from a disk file. 
Hexadecimal integers may be defined by preceding the value 
with a dollar sign ($). 

Example: PROGRAM CONST_DEMO; 

CONST NUMTIMES = 4; PI = 3.1416; 

ACCUM = $A6; 

VAR I:INTEGER; 

RAD I US,ANSWER:REAL; 

BEG I N 

FOR I:=1 TO NUMTIMES DO 
BEG I N 

WRITE('Enter radius ') ; 

READ(RADIUS) ; 

ANSWER := PI * (RADIUS * RADIUS); 

WRITELN('Circumrerence is ',ANSWER) 

END 

END. 

BASIC Equivalent: None 


COPY FUNCTION COPY(Source,Index,Length) : STRING; 

This built-in function returns a string value composed of a 
Portion of the string named by 'Source . The portion consists 
of 'Length' characters starting at offset Index into 
'Source . The first Position of a string has the index value 
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<pf 1. '|ndex' and 'Length' are integer expressions, while 
Source must be of type string. 'Length' must not be 
negative and must have a value in the ränge 1-255. The same 
is true for Index'. If thevalue of 'Index' p1us 'Length' is 
greater than the length of Source , then Length assumes 
the value of the length of Source minus 'Index'. 

Example: PROGRAM COPY DEMO: 

VAR FULL NAME,LAST_NAME:STR ING; 

I:INTEGER; 


BEGIN 

FULL_NAME := 'SMITH. JOHN B’; 

I := POSC ',',FULL NAME); 

LAST_NAME := COPYlFULL_NAME,1, I - 1); 

WRITELN(!The last name of ,FULL NAME, 
’ is 1 , LAST NAME) 

END. 


BASIC Equivalent: A$=B$(4,7) 


COS FUNCTION COS(Var):REAL; 

COS is a built.-in function which returns the cosine of the 
value of the variable 'Var . 'Var' may be either an INTEGER 
variable or a REAL variable. The value returned will always 
be a REAL value. 

Example: PROGRAM COS DEMO; 

VAR R1,R2:REAL; 


BEGIN 
WRITELN 
READ(R 1 
R2:=COS 
WR ITELN 
END. 


'Enter a real 


RI); 

'The cosine of 


number' ) ; 

'»RI»' i 


s 


\R2) 


BASIC equivalent: R2=C0S(R1) 


CVTREAL FUNCTION CVTREAL(Ivar):REAL 

This built-in function can be used to copy the value of an 
INTEGER variable into a REAL variable, ’lvar’ must be an 
INTEGER type variable. 

Example: PROGRAM CVTREAL_DEMO; 

VAR 11:1NTEGER; 

RI:REAL; 


BEGIN 

WRITELNi Enter an integer number ); 
READ( II); 

RI:=CVTREAL(II); 

WRITELN(R1, is now a real number') 
END. 


BASIC Equivalent: None 


DEG PROCEDURE DEG; 

DEG is used to specify that the output values from ARCTAN, 
COS, and SIN are to be expressed in degrees, as opposed to 
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radians. The System defaults to radians unless DEG is 
specified. Once specified, all output is in degrees until RAD 
is specified for radians, or the Computer is turned off and 
back on 

Example: PROGRAM DEG RAD DEMO; 

VAR R1,R2:REAL; 

REPLY:CHAR; 


BEG I N 

WRITELN(’Enter a 


D for output in degrees 


or R for output in radians 




WRITELNl v 
READ(REPLY); 

CASE REPLY OF 
~D : DEG; 

■R’: RAD 
ELSE 

WRITELN('That was not one of the choices') 
END; 

WRITELN('Enter a real number'); 

READ(Rl); v 

R2:=SIN(R1); .... 

WRITELN( Tne sine of ,R1, is ' ,R2) 

END. 


BASIC Equivalent: DEG 


DELETE PROCEDURE DELETE(Source,Index,Size); 

The DELETE built-in procedure removes a specified number of 
characters from a string. Size characters are^emoved from 
the string, 'Source', starting at offset 'Index'. 


Example: PROGRAM DELETE DEMO; 

VAR ALPHABET:STR ING; 


BEG I N 
ALPHABE 
DELETE! 
WRITELf 
END. 


:T:='ABCDEFG'; 

,OTIH' 25i 


The resulting value of ALPHABET will be ’ABEFG'. 
BASIC Equivalent: None 


DIV 


This operator computes the quotient of the two factors 
surrounding it. The factors may be either of type REAL or 
type INTEGER. DIV is equivalent to / in this imp1 ementation 
of Pascal. 


Example: PROGRAM DIV DEMO; 

VAR 11,12: ITTTEGER; 
RI,R2,R3:REAL; 

BEG IN 

I1:=20; 

I 2: = I1 DIV 2; 

RI:=20.0; 

R2:=5.2; 

R3:=R1 DIV R2 
END; 
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BASIC Equivalent: R3=R1/R2 


DOS PROCEDURE DOS; 

This built-in procedure terminates execution of the Pascal 
Supervisor and transfers control to the Atari Disk Operating 
System. For more information on the use of DOS, refer to the 
DOS Manua1. 


Example: PROGRAM DOS_DEMO 

BEGI N 
DOS 
END. 

BASIC Equivalent: DOS 


DRAWTO PROCEDURE DRAWTO(X.Y); 

The DRAWTO built-in procedure causes a graphic line to be 
drawn from the last coordinate refered to in a PLOT or DRAWTO 
built-in procedure. The color of the line is determined by 
the most recent setting of the COLOR procedure. 'X' and 'Y' 
may be any valid integer expressions. 

Example: PROGRAM DRAWTO; 

VAR X,Y:INTEGER; 


BEGI N 
COLOR( 1 ) : 
PLOT( 10,10); 
X: =20 ; 

Y:=30; 
DRAWTO(X,Y) 
END; 


BASIC Equivalent: DRAWTO X,Y 


DUMPSTK PROCEDURE DUMPSTK; 

This exclusive built-in procedure dumps the values of the 
Pascal stack to the output device of your choice. The output 
is sent t;o IOCB #7. If it is alreadv open, then it will be 
used as is. If it is not open, the rollowing prompt will be 
displayed on the screen: ’WHERE? (FILESPEC) . Enter with a 
normal device specification, such as E:. Each stack entry is 
two bytes wide. It is displayed in the following format: 

STACK ADDR=aaaa HEX=hhhh CHAR=cc 

’aaaa' is the absolute address of this stack entry, shown in 
hexadecimal format. hhhh is the value of this stack entry 
shown in hex. 'cc' is the same stack entry value shown in 
character format if the value is determined to be printable. 
Refer to the 'System Information' section of this manual for 
a description of internal variable formats. 

Example: PROGRAM DUMPSTK_DEMO; 

BEGIN 

DUMPSTK 

END. 

BASIC Equivalent: None 
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DVSTAT PROCEDURE DVSTAT(A,B,C,D); 

This exclusive built-in procedure reads the device status 
Information as requested from the STATUS command and Stores 
the values into variables A , B , C , and D . These 
variables may have any names, but must be predefined as 
integer variables. The values stored into che natped variables 
are caken from locations 746 through 749, decimal, within the 
operating system. The most common usage for DVSTAT would be 
in checking the status of RS232 ports. Consult your Atari 850 
Interface Module Operator's Manual for the meanings 
associated with these different status bytes. 


Examp 


e: 


PROGRAM DVSTAT DEMO; 

VAR BYTE 1,BYTE?,BYTE3,BYTE4: INTEGER; 
BEG I N 


ST ATUS(#1) 


DVSTAT 
WRI TEL 
BYTE 1 
BYTE2; 
BYTE3. 
BYTE4) 

END. 


(BYTE 1,BYTE2.BYTE3,BYJE4); 
N( t STatus values are , 


BASIC Equivalent: A=PEEK(746) 

B=PEEK(747) 
C=PEEK(748) 
D=PEEK(749) 


END 


END marks the termination of a block or compound Statement 
within a Pascal program. BEGIN marks the Start of the block 
or compound Statement. Each Statement between the BEGIN and 
the END, except for the last one, should be followed by a 
semicolon (;). END is also required as termination for a OASE 
statement. 

Example: Refer to example for BEGIN. 

BASIC Equivalent: None 


EOF EOF(File); 

This reserved word checks for end of file of an input device. 
It returns a true value if the most recent read of the file 
has detected an end of file mark. 'File' may be either a 
variable of type FILE, or an absolute IOCB number preceded by 
aff'. 


Example: PROGRAM EOF DEMO; 

VAR INPUT.OÜTPUT:FILE; 

DATA:STRING; 

BEGIN 

RESETfINPUT,’D:TEST.TXT’) ; 
REWRITE(OUTPUT,’D:TEST.NEW'); 
REPEAT 


READLN(INPUT,DATA)j x 
WRITELN(OUTPUT,DATA) 
UNTIL EOF(INPUT); 


CLOSE( 
END. 


NPUT,OUTPUT) 
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EOLN 


EX IT 


EXP 


BASIC Equivalent: 100 TRAP 2000 

2ÖÖ0 IF PEEK(195) = 136 THEN ... 


EOLN(File); 

This reserved word checks for end of line of an input device 
It returns a true value if the most recent read of the file 
has detected an end of line condition ($9B character). ’File 
may be either a variable of type FILE, or an absolute IOCB 
number preceded by a '#'. 

Example: PROGRAM EOLN DEMO; 

VAR DATA: CHAT?; 


BEGIN 

OPEN(#1,4,0, D:TEST.TXT '); 

OPEN(#2,8,0,'D:TEST.NEW ); 
REPEAT 

READ(#1 .DATA): 

WRITE(#2,DATA) ; 

IF EOLN(#1) THEN WRITELN(#2); 
UNTIL E0F(#1); 

CLOSE(#1,ff2) 

END. 


BASIC Equivalent: 100 GET #1 ,A 

200 IF A=155 THEN ... 


PROCEDURE EXIT; 

This built-in procedure causes immediate termination of the 
currently executing Pascal program. Control is transfered to 
the Pascal Supervisor. No files are closed. 

Example: PROGRAM EX IT_DEMO; 

BEGIN 

EXIT 

END. 

BASIC Equivalent: END 


FUNCTION EXP(Var):REAL; 

The function EXP(Var) computes the value of e to the 'Var' 
power. Var' may be either an INTEGER variable or a REAL 
variable. The value returned is always a REAL number. e is 
the base of the natural logarithm. Tne exponential function 
(EXP) and the natural logarithmic function (LN) are inverse 
funct Tons. 

Example: PROGRAM EXP DEMO; 

VAR RI,R2:REAL; 


BEGIN 

RI:=3.0; 
R2:=EXP(R1) 

END. 

BASIC equivalent: R2=EXP(R1) 


EXP 10 


FUNCTION EXP10(Var):REAL ; 
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The function EXPIO(Var) computes the value of 10 to the 'Var' 
power. 'War' may be either an INTEGER variable or a REAL 
variable. The value returned is always a REAL number. The 
exponential function (EXP 10) and ,the decimal logarithmic 
function (LOG) are inverse functions. 

Example: PROGRAM EXP 10 DEMO; 

VAR RI,R2:REAÜ; 


RI : =3.0: , v 
R2 :=EXP 10( R 1 ) 

END. 

BASIC equivalent: R2=10 ~ RI 


FALSE 

FALSE is a BOOLEAN constant representing the untrue state. It 
is internal ly equal to an integer value of zero. 

Example: Refer to the example under BOOLEAN 
BASIC Equivalent: None 


FILE 


This is a type code used in a VAR declaration. Each file 
defined is internal ly assigned an IOCB number. These numbers 
Start at one, for the first file defined, and increment up to 
a maximum value of seven. The FILE type variables may only be 
used in input-output type commands such as OPEN. CLOSE, READ, 
READLN, WRITE, WRITELN, EOF, EOLN, RESET, and REWRITE. 

Example: (Refer to example under EOF) 

BASIC Equivalent: None 


FOR 


FOR var := exprl TO expr2 DO Statement; 

FOR var := exprl DOWNTO expr2 DO Statement; 


The FOR Statement is used to repeat execution of a Statement 
for a predefined number of times. 'var' and 'exprl' and 
expr2 must be of the same type. The types allowed are 
INTEGER and REAL. Execution is as follows: 

1. var is set to exprl . 

2. 'var' is compared with ’expr2'. 

If 'var' is greater than or equal to 'expr2' (for TO) 
or 'var' ,is Tess than or equal to ’expr2' (for DOWNTO) 
proceed to step 6. 

3. )Statement' is executed. 

4. var is incremented by 1 (for TO) 

or decremented by 1 (for DOWNTO). 

5. go to step 2. 

6. exit 


Example: PROGRAM POR TEST; 

VAR I:INTEGER; 


BEG I N 

FOR I:=1 TO 5 DO WRITELN(’TEST') 
END. 


BASIC Equivalent: FOR 1=1 TO 5 
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FUNCTION 

A FUNCTION is a group of Statements that has a name and 
executes a certam task or algorithm. The identifier name for 
the FUNCTION may be used as a variable of type INTEGER. 
Parameters may be passed to the FUNCTION. These parameters 
must also be of type INTEGER. In this imp1 ementation of 
Pascal, FUNCTION may be abbreviated as FÜNC. 

Example: PROGRAM FUNCTION_TEST; 

VAR A,B:INTEGER; 

FUNCTION SQUARE(NUMBER ) ; 

BEGI N 

SQUARE:=NUMBER*NUMBER 
END; 

BEGIN (*MAIN*) 

FOR A: = 1 TO 5 DO 
BEG I N 

B:=SQUARE(A) ; 

WRITELN('THE SQUARE OF ’,A,' IS ’,B) 

END 

END. 

BASIC Equivalent: None 


GOTOXY PROCEDURE GOTOXY(X,Y); 

This built-in procedure is used to set the position of the 
Cursor. The next WRITE will have it's output begin at 
x-coordinate 'X' and y-coordinate ’Y’. The Cursor will not 
actually be moved until the next WRITE occurs. 'X' and 'Y’ 
can be any integer expressions. 

Example: PROGRAM GOTOXY_TEST; 

BEGIN 

GOTOXYM2, 12); 

WRITELN('MIDDLE OF SCREEN’ ) 

END. 

BASIC Equivalent: POSITION 12,12 

GRAPHICS PROCEDURE GRAPH I CS(Number); 

The GRAPHICS command is used to select one of the many 
graphics modes available on the Atari Computer. For a 
complete description of the command and the modes available, 
please refer to your Atari BASIC manual. 'Number' may be any 
integer expression. Note that before using the GRAPHICS 
command, you should execute the MAXGRAPH commapd to reserve 
screen memory for the mode desired. If you don t. the Pascal 
stack may overlay part of the screen memory and the results 
would be unpredictab1e. 

Example: PROGRAM KALEIDOSCOPE; 

VAR I,J,K,W:INTEGER; 

BEGIN 

MAXGRAPH(19); 

GRAPH I CS(19) ; 

X: =0 ; 

REPEAT 

FOR W:=3 TO 50 DO 
BEGIN 
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FOR I:=1 TO 10 DO 
BEG I N 

FOR J:=0 TO 10 DO 
BEG I N 
K:=l+J; 

COLOR(J*3/(l+3)+l*W/12); 
PLOT(I+8,K); 

PLOTfK+8.1); „ 

PLOT(32-I ,24-K) ; 

PLOT(32-K,24-I ) ; 
PLOTCK+8,24-I) ; 

PLOTf32-t ,K); 

PLOT(1+8,24-K); 
PLOT(32-K,I) 


END 

END 

END 

UNT1L KEYPRESS 
END. 


BASIC Equivalent: GRAPHICS 8 


HIMEM PROCEDURE HIMEM(Value); 

This built-in procedure is used to set the upper boundary of 
memory to be used by the Pascal Supervisor during execution. 
’Value’ may be any integer expression. HIMEM may be used to 
protect a machine language subroutine in upper memory, or to 
protect an area of memory where you may störe data. 


Example: PROGRAM HIMEM_DEMO; 


BEG I N 
HIMEMI 
BLOADI 

callT; 

END . 


S5FFF) ; 
t D:TEST.OBJ 
16000 ) 


) ; 


BASIC Equivalent: POKES into locations 144 and 145 (decimal) 


IF 


IF 

IF 


expr 1 
expr 1 


THEN stmtl 
THEN stmtl 


ELSE 


stmt2 ; 


The IF Statement evaluates expressions to see if they are 
true or false. 'exprl' is any kind of expression. if the 
expression is true, then ’stmtl’ will be executed. If the 
expression t is false, then 'stmtl* is not executed. If ELSE is 
used then ’stmt2' is executed when the expression is false. 


Example: PROGRAM IF DEMO; 

VAR I:INTEÜER; 


BEG I N 
I i ~ 5 J 

IF 1=5 THEN WRITELN('FI VE' ) 

ELSE WRITELN('NOT FI VE' ) 

END. 

BASIC Equivalent: IF 1=5 THEN ... (No ELSE) 


INSERT PROCEDURE INSERT(Source,Destination,Index); 

This built-in procedure inserts a string, or string literal, 
into another string at a specified Position. 'Source' may be 
either a string variable, a string literal (within quotes), 
or a character type variable. 'Destination' must be a 
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variable of type string. 
expression having a valu 

Example: PROQRAM INSERT DEMO: 

VAR PGMNAME : STlTl NG(20] ; 


'Index' may be any integer 
e in the ränge 1—255. 


BEG I N 

WRITE('Enter filename '); 

READLN(PGMNAME); 

IF POS(':'PGMNAME) = 0 THEN 
INSERT('Dl:’.PGMNAME. 1 ) ; 

WRITELN(New filename is ,PGMNAME) 
END. 


BASIC Equivalent: None 


1 NTEGER 

INTEGER is a type code assigned to integer variables. Integer 
variables contain values which are whole numbers in the ränge 
-32768 to +32767. 


Example: Refer to ASC example 
BASIC Equivalent: None 


IORESULT FUNCTION IORESULT:INTEGER; 

The IORESULT built-in function returns the value of the 
return code from the most recent input-output Operation. It 
is normal ly used after disk operations to verify that the 
requested action successfully completed. If the value of 
IORESULT is zero, then the Operation was successful. if it is 
other than zero, some kind of error has occurred. End-of-file 
and end-of-line are not considered errors and are handled by 
the EOF and EOLN built-in functions. An integer variable may 
be assigned the value of IORESULT if the value is to be 
saved. Remember that WRITE and WRITELN cause input-output 
operations to occur and set the value of IORESULT. Refer to 
the BASIC or ASSEMBLER manuals for a list of the error codes 
and their meanings. The error numbers above 127 are the ones 
you should be concerned with. The value of 137 (truncated 
record) may pertain to some of the built-in string functions 
and not actually be caused by an input-output request. 

Example: Refer to BLOAD example 

BASIC Equivalent: The TRAP instruction is used to provide a 
1 ine number to branch to on error conditions. 


KEYPRESS FUNCTION KEYPRESS: INTEGER ; 

This built-in function returns a one (true value) if any key 
on the keyboard has been pressed. Otherwise the value 
returned is a zero (false value). It allows a program to 
continue executing until interrupted by someone pressing a 
key on the keyboard. 

Example: Refer to example under GRAPHICS 
BASIC Equivalent: IF PEEK(764)<>255 THEN ... 


LENGTH FUNCTION LENGTH(svar):INTEGER; 

The LENGTH built-in function returns the length of a string. 
svar must be a string type variable. 
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Example: PROGRAM LENGTH DEMO; 

VAR I:INTEGER; 

S:STR ING; 

BEG I N 

S: = ’ABCDEFG'; 

I:=LENGTH(S); 

WRITELN( ’The length of ’.S,' is ',1) 
END. 

BASIC Equivalent: l=LEN(S$) 


LN FUNCTION LN(Var):REAL; 

ue of 
e 

value returned will always be REAL. 

Example: PROGRAM LN DEMO; 

VAR RI ,R2:TTEAL; 


BEG I N 

RI:=3.0; 
R2:=LN(R1) 
END. 


The LN function returns the natura 
Var . Var mey eitner be an INTE 


ural logaritt" 
NTEGER var-lat 


i of the val 
e or a REAL 


variable, but must be positive and greater than zero. 


BASIC Equivalent: R2=L0G(R1) 


LOCATE FUNCTION LOCATE(X,Y):INTEGER; 

The LOCATE function positions the invisible graphics Cursor 
at the specified location in the graphics window and returns 
a value equal to the data at that pixel. Graphics modes 0 
through 2 will return a value of 0-255. The 2-color graphics 
modes will return a value of 0 or 1. The four color modes 
will return a value in the ränge 0-3. You should reposition 
the Cursor using GOTOXY prior to doing a WRITE after LOCATE. 



LOCK PROCEDURE LOCK(Fi1ename); 

LOCK is used to lock a file on disk. After a file is locked, 
it is protected from being accidentally deleted or renamed. 

Filename' may either be a string literal (in quotes) or a 
string type variable. 
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Example: PROGRAM LOCK DEMO; 

VAR FILENAME7STRING; 

8EG I N 

FILENAME:='D:TEST.TXT'; 
LOCK(FILENAME); 

LOCK('D:TEST.TXT') 

END. 

BASIC Equivalent: XIO 35,#1,0,0,”D:TEST.TXT" 


LOG FUNCTION LOG(Var):REAL; 

The LOG function r 
10; or the value o 
variable or a REAL 
positive. The valu 

Example: PROGRAM LOG DEMO; 

VAR R1,R2:REAL; 


BEGIN 

RI:=3.0; 

R2:=LOG(R1) 

END. 

BASIC Equivalent: R2=LOG(R1)/LOG(10) 


eturns.the decimal ,1 ogar i thm (to the base 
f Var . Var may be either an INTEGER 
variable. The value of Var must be 
e returned will always be REAL. 


LPENH, LPENV FUNCTION LPENH:INTEGER; 

FUNCTION LPENV:INTEGER; 

These two functions are used for light pen support. LPENH 
returns the horizontal (X-coordinate) of the light pens 
Position, while LPENV returns the vertical (Y-coordinate) 
position. 


Example: PROGRAM LPEN DEMO; 

VAR A,X,Y:INTEGER; 


!*§)! 


BEGIN 

MAXGRAPHI 
GRAPH I CS (, 

COLOR( 1 ) ; 

REPEAT 

IF SELECTKEY THEN GRAPH I CS(8); 
WHILE ST I CK(0) = 15 DO 
BEGIN 

X:=LPENH; 

Y:=LPENV: 

PLOT(X,Y); 

IF lORESULTOO THEN EX IT 
END 

UNT1L KEYPRESS 
END. 


BASIC Equivalent: X = PEEK(564):Y = PEEK(565 ) 


MAXGRAPH PROCEDURE MAXGRAPH(Mode); 

The MAXGRAPH procedure is used to inform Pascal of the 
maximum graphics mode to be used within the program. Internal 
pointers are adjusted to allow for the required amount of 
screen memory to be reserved. If MAXGRAPH is not used. you 
may get undesirable results if the internal stack overlays { 

part of the screen memory. 'Mode' may be any valid graphics v 
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MOD 


NOT 


NOTE 


mode, including those with 16 or 32 added to them. If the 
internal trace (see TRACEON) is active, it is forced off by 
the MAXGRAPH command. 

Example: Refer to example under LPENH 
BASIC Equivalent: None 


MOD is an operator used to compute the remainder after the 
division of two integer factors. The left factor is divided 
by the right factor with the value returned being the 
remainder of the division. 


Examp1e: 


PROGRAM MOD DEMO; 
VAR I,YEAR:TNTEGER; 


Inter year ' ) ; 


BEG I N 

WRITELN(' 

READCYEAR,, 

I:=YEAR MÖD 4; 

IF 1=0 THEN 

WRITELN( Leapyear’) 
ELSE 

WRITELN('Not leapyear 

END. 


BASIC Equivalent: None 


This is an operator used to complement the factor which 
follows it. It is most common 1y used to determine when to 
stop reading input (WH I LE NOT EOF DO ...). 

Example: Refer to example under EOF 

BASIC Equivalent: NOT 


PROCEDURE NOTE(Iocbno,Sector,Byte); 

The NOTE procedure is used to retrieve an'd save the current 
access location of a disk file. locbno may be any valid 
IOCB number which refers to an open disk file. The IOCB 
number should be preceded by a #. Byte and Sector* refer 
to previously defined integer type variables. NOTE and POINT 
are used together to proviae random access to disk files. 

Example: PROGRAM NOTE_POINT_DEMO; 

VAR SECTOR,BYTE,I,REPLY:INTEGER; 

S TABLE.B TABLE:ARRAY[5] OF INTEGER; 

DÄTA:STRING; 

BEG I N 


(* CREATE THE FILE *) 

OPEN(#1.8,0,* D:TEST.TXT‘); 

FOR I : = 1 TO 5 DO 
BEGIN ,, 

WRITELN( Enter record number 
READLN(DATAJ; 

NOTE 041,SECTOR,BYTE ); 

S_TABLE(I):=SECTOR; 

}:=r — 


); 


B TABLEI 


BYTE; 


WfflTELN(#1 .DATA) 
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ODD 


OPEN 


END: 

CLOSE(#1); 

(* RANDOMLY ACCESS THE FILE *) 

OPEN(#1,4,0,'D:TEST.TXT'); 

FOR I:=1 to 5 DO 
BEG I N 
REPEAT 

WRITE( Enter a record number '); 
READ(REPLY) 

UNTIL (REPLY>0) AND (REPLY< 6 ) ; 
SECTOR:=S TABLE(REPLY); 

BYTE:= B TÄBLE(REPLY^j 


END; 
CLOSE(#1) 
END. 

BASIC Equivalent: NOTE 


point(#T,sector,byte 

READLN(#1.DATA):, 

WRITELN C Kecora REPLY, 
WRITELN(DATA) 


is ’); 


FUNCTION ODD(iexp); 

The QDD function returns a true value if the value of the 
specified integer expression is odd. iexp may be any 
integer type expression. 


Example: PROGRAM ODD DEMO; 

VAR I:INTEGER; 

BEG I N 

WRITE('Enter an integer number '); 
READ(h; 

IF ODD (I) THEN 
WRITELN('Odd') 

ELSE 

WRITELN('Even') 

END. 


BASIC Equivalent: None 


PROCEDURE OPEN(Fileno,Aux1,Aux2,Filename);; 

The OPEN is used to connect a program to a device. Each 
device or file must be opened before it may be accessed. The 
RESET and REWRITE commands may also be used to open fi1 es. 

Fileno' may either be a variable of type FILE, or an 
absolute IOCB number preceded by a #. Filename may be 
either a variable of type string, or a string literal (within 
quotes). 'Aux1 ' specifies the type of open to be performed. 
valid values for ’Auxl' are as follows: 

4 : Input Operation 
6 : Disk directory input Operation 

8 : Output Operation 

9 : End of file append Operation 
12 : Input and output Operation 

'Aux2' is a device dependant value but is normal ly zero. 

Refer to the appropriate manuals for Information on specific 
control Codes. 

Example: Refer to the example for NOTE 
BASIC Equivalent: OPEN #1,4,0,"D:TEST.TXT" 
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OPTIONKEY 

This special built-in function returns a true value if the 
OPTION key on the Atari keyboard is being pressed at the time 
the instruction is executed. 


Example: PROGRAM OPTIONKEY DEMO; 

VAR I:INTEGER; 

BEG I N 

WRITELN('Press BREAK key to stop’); 
REPEAT 

IF OPTIONKEY THEN WRITELN(’Option key 
IF SELECTKEY THEN WRITELN(’Se1ect key 
IF STARTKEY THEN WRITELN( Start key') 
UNTIL 1=99 (* UNENDING LOOP *) 

END. 




BASIC Equivalent: IF PEEKf53279)=4 THEN ... :REM OPTION KEY 

IF PEEK(5327 9 1 = 2 THEN ... :REM SELECT KEY 
IF PEEK(53279) = 1 THEN ... :REM START KEY 


OPTIONS OPTIONS(Opt1,Opt2,...,Optn) ; 

This special built-in procedure allows you to control certain 
events at program execution time. The options specified are 
always integer numbers. They are defined in pairs so that one 
number can set an Option while the other number of the pair 
can reset the same option. An Option remains in effect until 
reset by the other option in the pair, or the Pascal 
Supervisor is reloaded. The 'S' on the end of the word 
OPTIONS is required, even if only one option number is 
specified. If an invalid option number is given, it will be 
ignored and execution will continue as normal. The available 
options are shown below with defaults shown: 

0 - TURN OFF ERROR DISPLAY 

The display of CIO error messages is suppressed with 
this option. Error conditions can be checked for by 
looking at the value of IORESULT after each 
input-output Operation. 

1 - TURN ON ERROR DISPLAY (Default) 

This option allows CIO error messages to be displayed 
when they occur. 

2 - TURN OFF PROMPT DISPLAY 

This option suppresses the printing of the 'Execution 
Completed' message and the ’Highest Stack Address 
Used' message. 

3 - TURN ON PROMPT DISPLAY (Default) 

This option allows the above mentioned messages to be 
once again displayed at program termination. 

4 - DISABLE BREAK KEY 

This option prevents the BREAK key on the Atari 
keyboard from interrupting execution of a program. In 
order to keep the BREAK key disabled, it may Be 
necessary to have OPTIONS(4) specified after the 
first WRITE or WRITELN that goes to the screen or any 
OPEN, RESET, or REWRITE that addresses the screen (E: 
or S:). It should also be reissued after the GRAPHICS 
command. 

5 - ENABLE BREAK KEY (Default) 

The BREAK key may once again be used to stop 
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execution of a program after this Option is put into 
effect. 

6 - ONLY POSITIVE INTEGERS (0 TO 65535) 

This Option sets the ränge of integer values to be 
from zero through 65535. Reads, writes, and compares 
are affected by the setting of this option. 

7 - POSITIVE AND NEGATIVE INTEGERS (-32768 TO +32767) 

This option sets the ränge of integer values to be 
from -32768 through +32767. Reads, writes, and 
compares are affected by the setting of this option. 


Example: PROGRAM OPTION DEMO; 

VAR REPLY:CHART 

BEG I N 

WRITELN('Enter D to disable break key'); 
WRITELN('Enter E to enable break key ); 
READ(REPLY); 

OASE REPLY OF 
'D' : OPTI0NS(4); 

’E* : OPTIONS(5) 

END. 

BASIC Equivalent: None 


OR 


This operator sets the resulting condition as true if either 
the left or the right factors around it are true, otherwise, 
the condition is set to false. Parentheses should surround 
the factors on each side. 

Example: PROGRAM OR DEMO; 

VAR A:INTEÜER; 


BEG I N 

WRITE('Enter a number between 1 and 6’); 
READ(A): 

IF (A<1) OR (A>6) THEN 

WRITELN('Va1ue outside of ränge') 

ELSE 

WRITELN('Value okay') 

END. 


BASIC Equivalent: Same as Pascal 


ORD FUNCTION ORD(Rea1var):INTEGER; 

The ORD functionis usedto convert a real number into an 
integer number. Realvar must be a variable of type REAL. 
Rounding, rather than truncation, is performed on the value. 
Refer to the example for a method of obtaining a truncated 
value. 


Example: PROGRAM ORD DEMO; 

VAR I:INTEGER; 

R:REAL; 


BEG I N 

WRITE('Enter 
READ(R); 

I:=ORD(R); 

WRITELN( The 


a real number '); 
rounded integer value 


i s 


); 
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IF CVTREAL(ORD(R)) > R THEN 

R . =R-1 • 

WRITELN( f The truncated value is ' ORD(R)) 
END. 

BASIC Equivalent: I = I NT(R) 


PADDLE FUNCTION PADDLE(Number):INTEGER; 

This function returns the status value of a particular paddle 
Controller. The Controllers are numbered 0-7 from left to 
right. The value returned will be an integer number between 1 
and 228. The value increases as the knob on the Controller is 
rotated counterclockwise. 'Number may be any integer 
expression having a value in the ränge 0-7. 

Example: PROGRAM PADDLE DEMO; 

VAR I,J:INTEGER; 

BEGIN 

REPEAT 

I:=PADDLE(0); 

WRITELN('Value of paddle(O) is ',!) 

UNTIL J = 99 (* UNENDING LOOP *) 

END. 

BASIC Equivalent: l=PADDLE(0) 


PEEK FUNCTION PEEK(Address):INTEGER; 

This function returns the contents of a specific memory 
address location. The value returned will be an integer in 
the ränge 0-255. 'Address' may be any integer expression, 
including hexadecimal constants (preceded 6y a $). 

Example: PROGRAM PEEK DEMO; 

VAR I,REPLY:TNTEGER; 

BEGIN 

WRITE('Enter a memory address in decimal'); 
READ(REPLY); 

I :=PEEK(REPLY) : 

WRITELN('That location contains hex ’,%l) 

END. 

BASIC Equivalent: I=PEEK(REPLY) 


PLOT PROCEDURE PLOT(X,Y); 

PLOT is used to display a point within one of the graphics 
Windows. The color of the point plotted is determined by the 
hue and luminance in the color register from the last COLOR 
Statement executed. The color of the plotted point is changed 
by use of the SETCOLOR command. X’ and ’Y may be any 
integer expressions. 

Example: Refer to example under. GRAPHICS 
BASIC Equivalent: PLOT(X,Y) 


POINT PROCEDURE POINT(Iocbno,Sector,Byte); 

The POINT procedure is used to Position the disk file pointer 
to the next location to be read or written. It is used in 
ponjunction with NOTE to provide random access capabi1ities. 
locbno' may be any valid IOCB number which refers to an open 
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disk file. It must be preceded by a '#'. 'Sector' and 'Byte' 
refer to previously defined integer type variables. They 
normal ly contain a value which was set by a NOTE commana. 

Example: Refer to example under NOTE 

BASIC Equivalent: POINT #1,SECTOR,BYTE 


POKE PROCEDURE POKE(Address,Va1ue); 

The POKE procedure is used.to stor^ a certain value into a 
specific memory location. Address may be any integer 
expression, including hexadecimal constants (preceded by a 
$). Value may be any integer expression. value' should be 
in the rang®, 0-255, If it is greater than 255, then the value 
storea wiIT be Value MOD 25b. 


Example: PROGRAM POKE_DEMO; 

CONST LEFT MARGIN : 
VAR I:INTEüER; 


82; 


BEGI N 

WRjTEj'Enter new left margin value ’); 
(LEFT_MARGIN,I) 


READ 
POKE 
END . 


BASIC Equivalent: POKE 82,1 


POS FUNCTION POS(Pattern,Source):INTEGER; 

This function returns the Position of the first occurence of 
a given string in another string. 'Pattern' may be either 
string variables, character variables, or string literals 
(within quotes), or any mixture thereof. 'Source' must be a 
string variable. A value of zero is returned if the pattern 
is not found. You can easily check for the presence or 
gibsence of a pattern by checking to see if the value returned 
is zero or not. 

Example: Refer to example under INSERT 
BASIC Equivalent: None 


PROCEDURE PROCEDURE Name; 

PROCEDURE Name(Parm1,Parm2,...,Parmn); 

A procedure is a named group of Statements that executes a 
specific task or algorithm. No value is associated with it, 
as with a function. Parameters may be passed to the 
procedure. All Parameters must be of type integer. A 

C rocedure is activated just by specifying it s name. It must 
e defined before it's name is mentioned. Variables may be 
defined within procedures. If they are, they are local to 
that procedure and may be referenced only from within that 
procedure. The variable names may be the same as variables 
defined elsewhere within the program without interfering with 
their values. In this Implementation of Pascal, you may use 
PROC as an abbreviation for PROCEDURE. 

Example: PROGRAM PROCEDURE DEMO; 

VAR NUMLINES:INTEÜER; 

(* WRITE VARIABLE NUMBER OF BLANK LINES *) 

PROCEDURE LINES(NUMBER); 

VAR I:INTEGER; 
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BEG 1 N 

FOR I:=1 TO NUMBER 


END; 

(* DISPLAY MENU LIST 
PROCEDURE MENU; 

BEG 1 N 


DO WRITELN 
*) 


(* THE 125 BELOW IS A CLEAR SCREEN CODE *) 

WRITELN 
WRITELN 
WRITELN 
END; 


;CHR(125),'TITLE' 
. 1 - Choice one 
'2 - Choice two 1 


(* MAIN PROGRAM SECTION *) 


BEG I N 
MENU; 

WRITE( Enter number 
READ(NUMLINES): 
LINES(NUMLINES) 

END. 


of 1ines to b1ank ’ ) 


BASIC Equivalent: The object of a GOSUB 


PROGRAM PROGRAM Name; 

PROGRAM is used to give a name to the Pascal program which 
follows it. No code is generated from it. It s only purpose 
is to provide documentacion. 'Name' may be any string of 
characters, of any 1ength, which is terminated by a semicolon 


Example: PROGRAM ANY_NAME_AT_ALL; 

BEG I N 

WRITELN(’This program has a name') 
END. 

BASIC Equivalent: None 


PTRIG FUNCTION PTRIG(Number):INTEGER; 

This function is used to determine the status of the trigger 
button on the designated paddle Controller. A value of 0 is 
returned if the trigger is pressed, otherwise the value 
returned is a 1. 

Example: PROGRAM PTRIG_DEMO; 

BEG I N 
REPEAT 

WRITELN('Press paddle 0 trigger to stop') 

UNTIL PTR(G(0)=0 
END. 

BASIC Equivalent: IF PTRIG(0)=0 THEN ... 


PURGE PROCEDURE PURGE(Fi1espec); 

This procedure is used to remove a file from a diskette. 
Filespec' may be either a string variable or a string 
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literal (within quotes). ’Filespec' must indicate the device 
and filename extension (if present). 

Example: PROGRAM PURGE_DEMO; 

BEG 1 N 

PURGE('D:TEST.TXT') 

END. 

BASIC Equivalent: XIO 33,#1,0,0,"D:TEST.TXT" 


RAD 


RAD is used to indicate that the output from all 
trigonometric computations that fgllow is to be expressed in 
radians, rather than degrees. Radians are the default unless 
DEG is specified. You can switch back and forth between 
degrees and radians as often as you like. 

Example: Refer to example under DEG 

BASIC Equivalent: RAD 


READ, READLN PROCEDURE READ(Fi1e ,Var 1,Var2,...Varn) ; 

READ and READLN are used to supply data to a program from a 
keyboard or any other input type device. In this 
imp1 ementation of Pascal. READ and READLN are identical and 
may be used interchangeab1y. Variables must be predefined to 
hold the data to be read. These variables may be of type 
character, integer, real, or string, or elements of an array 
of one of these types. Tne type code of the variable 
determines how it is read into the program. For character 
type variables, one character of data is transfered from the 
input device to the variable. No carriage return (RETURN) is 
required for character type variables. The carriage return is 
required, however, for all other data types, since each may 
be entered as a variable number of characters. 'File' is 
optional, and if present, determines the device from which 
the data will be read. 'File' may be specified as either an 
absolute IOCB number (preceded by a #), or a variable of type 
FILE. If 'File' is not specified, then the Atari keyboard is 
assumed to be the input device. Any number of variables may 
be mentioned within a READ Statement. 'File may also be 
repeated and sets the device to be used as input for each 
variable that follows it until either another 'File' or the 
right parenthesis ) is encountered. 

Example: Refer to EOF and EOLN examples 

BASIC Equivalent: INPUT #1;VAR IABLE 


REAL 


The REAL type code is used to define variables which are 
numeric but not integers (contain decimal points) or have 
values outside the integer ränge (-32768 through +32767. or 0 
through 65535, depending on the setting of Option 6 or 7). 
Each real variable defined occupies three stack positions 
(six bytes). The format used is identical to that used by 
BASIC and the Atari operating system. When a real variable is 
set to a real constant value within a program, the constant 
must start with an integer, and be followed by a decimal 
point, and optional ly an exponent portion. 

Example: PROGRAM REAL_DEMO; 

VAR R:REAL; 
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BEGI N 

R:=0.55E+3; 

WRITELN('R:',R) 

END. 

BASIC Equivalent: All numeric variables used by Atari BASIC 
are considered REAL numbers. 


RECORD 

The RECORD type code is used to define a variable, or group 
of variables, which are to be read, written, or moved, as an 
entity in internal format. The variables within the record 
must be^uniquely named and are to be used exaqtly,as,if,they 
were not part of a record. The different fields within the 
record do not have to be all of the same type. All variable 
types, including arrays, are supported, with the exception of 
F(LE and RECORD. An 'END;' must be present after the last 
field of the record to indicate the end of the record. 


WRITE, rather than WRITELN, should be used when writing 
records. If WRITELN is used, an end of line character is 
written following the record and special consideration must 
be given for it when reading the record back in. 


Example: PROGRAM RECORD_DEMO; 

VAR REC1:RECORD; 

NAME:STR ING[20]; 
GRADE:REAL; 

AGE:INTEGER; 

END; 


I : INTEGER: 

RECFI LE:FI LE; 

BEG I N 

REWRITE(RECFI LE,'D:TEST.REC’); 
FOR I:=1 TO 3 DO 
BEG I N 

WRITE('NAME:':10); 

READLN(NAME); 

WRITE( uRADE:':10); 
READLN(GRADE); 

WRITE( AGE:':10); 

READLN(AGE); 

WRITE(rECF1 LE,REC1) 

END; 

CLOSE(RECFI LE)I 
RESET(RECFI LE,'D:TEST.REC); 
FOR I:=1 TO 3 DO 
BEG I N 

READ(RECFI LE,REC1); 

WRITELN('NAME='.NAME); 

WRITELNi AGE= ,ÄGE); 

WRITELN £ GRADE= ,GRADE) 
END: 

CLOSE(RECFI LE) 

END. 


BASIC Equivalent: None. 


REPEAT REPEAT Stmtl; ... ;Stmtn UNTIL Condition; 

REPEAT is used to loop through a group of statements until a 
specified condition occurs. The statements are executed at 
least once, even if the UNTIL condition is initially false. 
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The condition is tested after the group of Statements is 
executed. 'Condition' may be any normal expression. To test a 
condition before executing a group of Statements, use WHILE. 


Example: Refer to example under EOF 
BASIC Equivalent: None 


RESET PROCEDURE RESET(Fi1e,Fi1espec); 

RESET is used to open a file which will be used in input 
mode. The IOCB is first closed by RESET before the open takes 
place. 'File' must refer to a variable of type FILE. 
’Filespec' refers to the file specifications and may be 
either a string literal (within quotes) or a string type 
van ab 1 e. 

Example: Refer to example under EOF 

BASIC Equivalent: CLOSE #1 

OPEN #1,4,0,"D:TEST.TXT" 


REWRITE PROCEDURE REWRITE(Fi1e,Fi1espec); 

REWRITE is used to open a file which will be used in output 
mode. The IOCB is first closed by REWRITE before the open 
takes place. 'File' must refer to a variable of type FILE. 

Filespec refers to the file specifications and may be 
either a string literal (within quotes) or a string type 
variable. 

Example: Refer to example under EOF 

BASIC Equivalent: CLOSE #1 

OPEN 41,8,0,"D:TEST.TXT" 


RND FUNCTION RND(I exp): INTEGER; 

The RND function is a random number generator. A random 
integer number is returned between zero and the valu§ of 
I exp , inclusive. I exp may be any integer expression. 


Example: PROGRAM RND_DEMO; 

VAR 11,12:1NTEGER; 


BEG I N 

FOR I1 : = 1 TO 50 DO 
BEG I N 

I2:=RND(25); 
WRITELN(I2) 

END 

END. 


BASIC Equivalent: I2=RND(0)*25 
SELECTKEY 

This special built-in function returns a true value if the 
SELECT key on the Atari keyboard is being pressed at the time 
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the instruction is executed. 

Example: Refer to example under OPTIONKEY 
BASIC Equivalent: IF PEEK(53279)=2 THEN ... 


SETCOLOR PROCEDURE SETCOLOR(Register,Hue,Luminance); 

This built-in procedure is used to set the particular hue and 
luminance to be assigned to a particular color register. 
'Register' may be any integer expression which results in a 
value in the ränge 0-4. Hue may be any integer expression 
which results in a value in the ränge 0-15. 'Luminance' may 
be any integer expression which results in an even number in 
the ränge 0-14. For further information on the SETCOLOR 
command, refer to the Atari BASIC manual. 

Example: PROGRAM SETCOLOR_DEMO; 


BEG I N 

MAXGRAPH 
GRAPHICS 
SETCOLOR 
PLOT(17, 
DRAWTO'' 
DRAWTO 
PLOT(1 


, 2 , 8 ) 


17.10); 
9 ^ 8 ); 


END. 


DRAwtojMg.Ms); 

PLOT(20, 1 ) ; 
DRAWTOf 20.18) ; 
PLOT(22,1) ; 
DRAWTO?22,10) ; 
DRAWTOf 30,18) 


BASIC Equivalent: Same as BASIC 


SHL Exprl SHL Expr2 

The SHL operator performs a bitwise shift of 'Exprl' to the 
left by Expr2 bit positions. Each bit position shifted is 
equivalent to 'Exprl' multjplied by 2. Tne value returned is 
an integer and both Exprl and Expr2 refer to integer type 
expressions. When multiplying an integer by a value which is 
a j3ower of two, the SHL is more efficient than the multiply 


Examp1e: 


PROGRAM 
VAR I,J: 


SHL DEMO; 
INTEGER; 


BEG I N 
J : = 2 ; 

WR I TELN( l * r 2*256= ' , I ) 

END. 

BASIC Equivalent: l=J*(some power of 2) 


SHR Exprl SHR Expr2 

The SHR operator performs a bitwise shift of 'Exprl' to the 
right by Expr2 bit positions. Each bit position shifted is 
equivalent to 'Exprl' divided by 2. The value returned is an 
integer and both 'Exprl' and ’Expr2' refer to integer type 
expressions. When dividing an integer by a value which is a 
power of two, the SHR is more efficient than the divide (DIV 
or '/'). 
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Example: PROGRAM SHR DEMO; 

VAR I,J:INTEGER; 

BEG I N 

J:=1024; 

I :=J SHL 7; 

WRITELN(’1024/128= ’ , 1 ) 

END. 

BASIC Equivalent: l=J/(some power of 2) 


SIN FUNCTION S IN (Var):REAL; 

$ 
v 

Example: Refer to the example under DEG 
BASIC Equivalent: A=SIN(2) 


SOUND PROCEDURE SOUND(Vo i ce ,P i tch, D i stört i on, Vo 1ume ) ; 


This built-in procedure is used to support the sound 
capabilities of the Atari Computer. voice' refers to one of 
the four sound registers and may be any integer expression 
which results in a value 0-3. 'Pitch' is used to set the 
frequency of the sound. It may be any integer expression 
which results in a value 0-255. 'Distortion' is used to set 
the purity of the tone. It may be any integer expression 
which results in an even number i in the ränge 0-14. A value of 
IQ creates a pure tone. 'Volume' determines how loud the tone 
will be played. It may be any integer expression which 
results in a value 1-15. A value of 1 creates a barely 
audible sound and a value of 15 creates a loud sound. A value 
pf 0 is used to turn off the sound. For additional 
Information on SOUND, refer to the Atari BASIC manual. 

Example: PROGRAM SOUND_DEMO; 

VAR I:INTEGER; 

BEG I N 

FOR I :=29 TO 121 DO 
BEGIN , 

SOUND(0,1,10,10); 

WA IT(15) (* HOLD FOR 1/4 SECOND *) 

END; 

SOUND(0,0,0,0) (* TURN OFF SOUND *) 

END. 

BASIC Equivalent: SOUND (Same as BASIC) 


SQR FUNCTION SQR(Var):REAL; 

The SQR function returns the square of the value of 'Var'. 

Var may either be an INTEGER variable or a REAL variable. 
The value returned will always be REAL. 

Example: PROGRAM SQR DEMO; 

VAR RI,R2:REAL; 


BEG I N 

RI: = 10.0 ; 

R 2:=SQR(R1 ) 


vaiuc 


IN is a function, whiph returns the sine pf th_ - 

Var . Var may be either an INTEGER variable or a REAL 
ariable. The value returned is always REAL. 
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END. 

BASIC Equivalent: R2=R1*R1 

SQRT FUNCTION SQRT(Var):REAL; 

The SQRT function returns the square root of the value of 
Var . Var may either be an INTEGER variable or a REAL 
variable. The value returned will always be REAL. 

Example: PROGRAM SQRT DEMO; 

VAR RI,R2:REXL; 


BEGIN 

R 1 : = 10.0 ; 

R2:=SQRT(RI) 

END. 

BASIC Equivalent: R2=SQR(R1) 


STARTKEY 

This special built-in function returns a true value if the 
START key on the Atari keyboard is being pressed at the time 
the instruction is executed. 

Example: Refer tp example under OPTIONKEY 

BASIC Equivalent: IF PEEK(53279)=1 THEN ... 


STATUS PROCEDURE STATUS(Iocbno,Ivar); 

This built-in procedure is used to retrieve Status 
information from a particular device. ’locbno' refers to 
either an absolute IOCB number (preceded by a #), or a FILE 
type variable. ’Ivar’ is an INTEGER variable which will 
contain the return code of the STATUS command. The actual 
Status values returned from the device can be interrogated by 
using DVSTAT. 

Example: Refer to example under DVSTAT. 

BASIC Equivalent: STATUS (Same as BASIC) 


STICK FUNCTION ST I CK(Number):INTEGER; 

This function returns the status value of a particular 
joystick attached to the Computer. Number refers to the 
Controller jack that the Joystick is plugged into. It may be 
any integer expression which results in a value of 0-3. 

Values returned for the various positions of the Joystick are 
shown below: 


14 

10 , 6 

11- 15-7 

9 ! 5 

13 

Example: PROGRAM JOYSTICK_DEM0; 
VAR I:INTEGER; 

BEGIN 
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REPEAT 

I :=STI CK(0) ; 

WRITELN ('Stick 0 is ' , I ) 

UNTIL KEYPRESS 
END. 

BASIC Equivalent: l=STICK(0) (Same as BASIC) 


STR FUNCTION STR(Var):STR ING; 

This bui1t 7 in functjon is used to convert a number into it's 
string equivalent. Var may either be an integer type 
variable or a real type variable. 

Example: PROGRAM STR DEMO; 

VAR I:INTEGER; 

R:REAL; 

S:STR ING; 

BEGI N 
I:=20: 

S:=STR(I 
WRITELN( 

R:=3.141 
S:=STR(R 
WRITELN( 

END. 

BASIC Equivalent: S=STR(I) 


STRIG FUNCTION STR IG(Number): INTEGER; 

This function is used to check on the Status of the Joystick 
trigger button. A value of zero is returned if the button is 
being pressed at the time the instruction is executed. A 
value of one is returned when the button is not pressed. 
'Number' refers to the Controller jack that the Joystick is 
plugged into. It may be any integer expression which results 
in a value 0-3. 

Example: PROGRAM STR IG_DEMO; 

VAR I:INTEGER; 

BEGI N 
REPEAT 

WRITELN('Press button on Joystick 0 to stop') 
UNTIL STR IG(0)=0 
END . 

BASIC Equivalent: IF STR IG(0) = 0 THEN ... 


STRING 

STRING is a type code used to define variables which contain 
a number of characters. A fixed amount of memory is raserved 
for each string, but the actual length of the string is 
variable. Any ATASCII, codes may, be contained within a string 
variable. String variables may be defined with lengths of 
1-255 characters. The length specification is made by putting 
the length within brackets '[]' after the word STRING. If no 
length code is specified, a aefault length of 80 characters 
is assumed. The functions and procedures used to manipulate 
strings are CONCAT, COPY, DELETE, INSERT, LENGTH, and POS. 

Example: PROCEDURE STRING DEMO; 

VAR A:STR ING; 

B:STR ING[10]; 




l] 
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C:ARRAY[5] OF STRING[20]; 


BEG I N 
( * 
(* 
(* 
(* 
c* 

END. 



is a string of 
is a string of 
is a six element 
array with each 
a length of 20 


length 
1 ength 
(0-5) 


80 

10 


,. -, string 

element having 


*) 

*) 

*) 

*) 

*) 


BASIC Equivalent: DIM A$(80) No equivalent for string 
arrays. 


TRACEOFF PROCEDURE TRACEOFF; 

This speqial built-in procedqre is.used to turn off a pseudo 
Instruction code trace that is active if turned on by 
TRACEON. The wraparound buffer used by the trace is not 
released by TRACEOFF. 

Example: Refer to example under TRACEON. 

BASIC Equivalent: None 


TRACEON PROCEDURE TRACEON: 

PROCEDURE TRACEON('Number) ; 

This special built-in procedure is used to turn on a pseudo 
instruction trace, for debugging purposes. The trace table is 
maintained in a memory buffer. Number' is used to specify 
the number of trace entries to maintain. It is a wraparound 
type trace buffer where new entries overlay old entries if 
the buffer is not large enough to contain all of the 
instructions executed. Each trace entry is nine bytes long. 
The trace entries may be displayed at program termination by 
entering CTRL-T. Refer to the 'Supervisor section of this 
manual for more information. 'Number' may be any integer 
expression. If 'Number' (and the parentheses) are not 
specified, then the trace is re-activated using an existing 
buffer from a previous TRACEON where Number' was specified. 
If the value of 'Number' is zero, then the trace buffer is 
released from memory and the trace is turned off. Note that 
the MAXGRAPH command will also turn off the trace and re lease 
the memory used for the trace buffer. 

Example: PROGRAM TRACE DEMO; 

VAR NAME:STR IHG; 

BEG I N 

TRACEON(100); 

WRITE( Enter your name ); 

READLN(NAME) ; 

TRACEOFF 

ENDI 

BASIC Equivalent: None 


TRUE 


TRUE is a BOOLEAN constant representing the true state. It is 
internal ly equivalent to an integer constant of one. 

Example: Refer to the example under BOOLEAN 

BASIC Equivalent: None 
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UNLOCK PROCEDURE UNLOCK(Fi1espec); 

This procedure is used to unlock a d^jsk file which was 

? reviously locked. Filespec specifies the name of the file 
o be unlocked. It may be either a variable of type string or 
a string literal (within quotes). 

Example: PROGRAM UNLOCK_DEMO; 

VARIABLE FILENAME:STR ING; 

BEG1N 

FILENAME:= D:TEST.TXT’; 

UNLOCK(FILENAME) 

END. 

BASIC Equivalent: XIO 36,#1,0,0,”D:TEST.TXT" 


VAL FUNCTION VAL(Svar):INTEGER or REAL; 

This function is used to return the value of a string 
variable which contains a number. ’Svar’ must be a string 
type variable. The number must Start at the beginning of the 
string variable. REAL values are returned to REAL variables, 
and INTEGER values are returned to INTEGER variables. 

Example: PROGRAM VAL DEMO; 

VAR l:INTEGER; 

R:REAL; 

S:STR ING; 


BEGIN 

S : = ’1234'; 

I :=VAL(S); 
WR,T<jLN^YA L < s) = 

R : =VAL(S); 

WR!TELN(vAL(S)=',R) 
END. 


1 ); 


BASIC Equivalent: l=VAL(S$) 


VAR VAR Name1,Name2Namen : Type; 

VAR Name1,Name2,...,Namen : ARRAY[Number] 

OF Type; 

VAR is used to allocate variables to be used by a program. 
Variables which are defined at the beginning of a program, 
before procedures and functions, are global and may be 
referenced by any Statement in the program. Variables which 
are defined within procedures and functions are local 
variables and may only be referenced by Statements within 
those procedures and functions. Valid Type' codes are FILE, 
CHAR, INTEGER, REAL, BOOLEAN, RECORD, and STRING. Refer to 
the descriptions of the individual type codes for more 
information about them. ARRAYs may be specified for any type 
other than FILE or RECORD. Refer to the description under 
ARRAY for more information. The variable names may be any 
words that begin with a letter and are not the same as Pascal 
reserved words. The name may be of any length, but only the 
first eight characters are significant and must be unigue. A 
section Tisting Pascal reserved words is included within this 
manual. 

Example: Refer to the example under STRING. 

BASIC Equivalent: None for files. DIM for strings and arrays. 
None required for numbers. 


56 



Draper Pascal 2. 1 


Pascal Definitions 


WA IT PROCEDURE WA IT(Number); 

This special built-in procedure is used to suspend program 
* execution for a specified length of time. 'Number' is the 

number of sixtieths of a second for the program to wait. A 
value of 60 is equal to 1 second. 'Number' may be any integer 
expression. 

Example: Refer to example under SOUND 
BASIC Equivalent: None 


WH 1 LE WHILE Condition DO Statement; 

WHILE is used to repeat execution of a Statement until a 
specified condition is false. 'Condition' may be any 
expression which results in a true (1) or false (01 
condition. The condition is evaluated before the statement is 
executed. If the condition is initial ly false, 'Statement 
wi11 not be executed. 

Example: PROGRAM WHILE DEMO; 

VAR INPUTiFILE; 

DATA:STR ING; 

BEG I N 

RESET(INPUT,'D:TEST.TXT ); 

WHILE NOT EOF(INPUT) DO 
BEG IN 

READLN(INPUT,DATA); 

WRITELN(DATA) 

END: 

CLOSECINPUT) 

END. 

BASIC Equivalent: None 


WRITE 


WR1TE C File.Expr1,Expr2,...): 

WRITE(Fi1e,Expr1:F1dwdth...); 

WRITE(Fi1e,Expr1:F1dwdth:Numdec. 


) 


will' 


The WRITE is used to move data from memory to an external 
device. such as the te1evision/monitor screen, disk drive, 
cassette recorder, or modern. 'File' is optional and, if 
present, determines the device to receive the data. If 'File' 
is not present, then the screen is used. The variables may be 
of any type other than FILE. Expressions are permitted in the 
~E statement. The end-of-line character (carriage return) 
not fo I low the data for WRITE (see WRITELN). integer 
numbers with values of zero through 255 may be sent to the 
output device. For example, to send a form feed command to a 
printer (defined as file PRINTER), you can use 
WRITE(PRINTER,CHR(12));. Numbers by themselves will print as 
normal integer er real values. To write out an integer value 
in hexadecimal format, precede the variable name or integer 
value with a percent sign (,%). Literal constants may be used 
in the WRITE statement, also. The literal must be enclosed 
within a pair of single quote marks. It may be any character 
other than a quote mark. To write a quote mark, say 
WRITE(CHR(39)), because 39 is the ASCII value of tne quote 
mark. 


Write formatting is supported. Refer to the example under 
WRITELN. 


Example: Refer to example under PROCEDURE 
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BASIC Equivalent: PRINT (followed by a semicolon) 


WRITELN 


WRITELN( 
WRITELNI 
WRITELNI 


Fi 

Fi 

Fi 


SilügFlsPiäEltf,::?). 

e,Expr1: F1dwdth:Numdec...) ; 


The WRITELN is identicai to the WRITE except that an 
end-of-line character is sent to the output device after the 
variables (if present) have been written. If no expressions 
are present then only the end-of-line character is written. 

If all Parameters ana the parenthesis are missing, then an 
end-of-line character is written to the screen. 

Write formatting is supDorted.,It, is h^ndled differently, 
depending on the type of data to be written. To cause 
formatting to happen, follow the expression with a colon (:) 
and then an integer expression, ’Fldwdth'. If the colon is 
nc?t present, then the value of the expression will be written 
with a field width equal to the number of character positions 
that the data represents. 


For integer values, Fldwdth specifies The minimum field 
width. I f 'Fldwdth is greater than the number of digits in 
the integer value. the value is right justified in a field 
containing 'Fldwdth' positions. If 'Fldwdth' is less than the 
number of digits in the integer value, the width of the field 
is increased to contain the füll integer value. 

For character data, 'Fldwdth' specifies the absolute field 
width. The character will be right justified within the 
field. 


For string data, 'Fldwdth' specifies the maximum field width 
If 'Fldwdth' is greater than the number of characters in the 
string. the string is right justified in a field containing 
'Fldwdth' positions. If Fldwdth' is less than the number of 
characters in the string, then the string value will be 
tryncated on the right and only 'Fldwdth characters will be 
written. 


For real data, 'Fldwdth' performs the same as with integer 
data, but 'Numdec' i? permitted. If the second colon (:) and 
Numaec are both omitted, then the real value will be 
printed in scientific notation. When the second colon and 
Numdec’ are present, the real value is not printed in 
scientific notation, and 'Numdec' specifies the number of 
decimal positions to be printed. Numdec may be any integer 
value from 0 through 254. If 'Numdec' is greater than the 
number of significant decimal positions in the value, then 
zeros are added on the right until 'Numdec' decimal positions 
are taken. If Numdec is less than the number of significant 
decimal positions in the value, then the value written is 
truncated (not rounded) after Numdec' decimal positions. 

In the example that follows, a blank is represented by a 
lowercase 1 etter b. 


Examp1e: 

PROGRAM WRITELN DEMO; 
VAR I:INTEGER; 

R:REAL; 

C: CHAR ; 

S:STR ING[4]; 

BEGIN 

I:=1234; 

R:-1.234; 
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C: = ’ A' ; 

S: = 'ABC 1 

WR1TELN(I): 

WRITELN( 1,1); 
WRITELN ( 1:1); 
WRITELN(1:7); 

WRITELN(R) ; 

WRITELN( R : 7 ) ; 
WRITELN(R:16) 
WRITELN (R:7:0 
WR1TELN( R : 7 :1 
WRITELN(R:7:5 
WRITELN(R:2:5 

WRITELN(C);„ 
WRITELN TC,C); 
WR1TELN(C:1) ; 
WRITELN(C: 3) ; 

WRITELN(S) ; 

WRITELN(S,S) ; 
WRITELN(S : 1) ; 
WRITELNCS:3); 
WRITELN(S:5 ) ; 

END. 


*) 
*) 
*) 
* ) 


I * gives 1.23400000E+00 *) 

* gives 1.23400000E+00 *1 

* gives bb1.23400000E+00 *) 

* gi'ves bbbbbl . *) 

* gives bbbbl.2 *1 

* gives 1.23400 *) 

* gives 1.23400 *) 

(* gives A *) 

(* gives AA *) 

(* gives A *) 

(* gives bbA *) 

(* gives ABC *) 

(* gives ABCABC *) 

(* gives A *) 

(* gives ABC *) 

(* gives bbABC *) 


* gives 1234 

,* gives 12341234 

* gives 1234 

,* gives bbb1234 


BASIC Equivalent: 


PRINT (not followed by a semicolon) 


XCTL PROCEDURE XCTL(Fi1espec) ; 

This special built-in procedure is used to transfer control 
to another Pascal program. Filespec mav be either a string 
variable or a string literal (witnin quotes). It must 
completely specify the P-code to be executed next. This means 
that i^he .PCD’ extension must be present in the filename. If 
data is to be passed from the current program to the next 

g rogram, then it must first be stored somewhere (like disk) 
y the current program and retrieved by the next program. If 
the program to be transferred to is not on the diskette 
currently in the drive specified, a message is given asking 
you to insert the correct diskette. 

Example: PROGRAM XCTL_DEMO; 

BEG I N 

XCTL(’D:NEXT.PCD’) 

END. 

BASIC Equivalent: RUN ”D:NEXT‘' 


XIO PROCEDURE XI 0(Number,Fi1e,Aux1,Aux2,Fi1espec); 


XI0 is used to perform special input/output operations. It 
may be used with any device. One use is to fill an area on 
the screen between plotted points and lines with a specific 
color. Number' is an integer number with a value in the 
ränge 0-255. The number specified depends on the Operation 
requested and the device. File may be either an absolute 
IOCB number (preceded by a #) or a variable of type FILE. 
’Auxl’ and ’Aux2’ are auxiliary control Codes and are 
dependant on the particular device and command number. 

Filespec supplies the file specification to the device 
handler. It may be either a string variable or a string 
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literal (within quotes). The Standard values for 'Number' are 
as fo11ows : 

3 OPEN 

5 GET RECORD 

7 GET CHARACTERS 

9 PUT RECORD 

11 PUT CHARACTERS 

12 CLOSE 

13 STATUS REQUEST 

17 DRAW LINE 

18 FILL 

32 RENAME 

33 DELETE 

35 LOCK FILE 

3$ UNLOCK FILE 

37 POINT 

38 NOTE 

254 FORMAT 
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System Information 

The Supervisor uses zero page locations $A0 - $BF. Locations $80 - 
$9F are available for your use if desired. Various locations 
between $D4 and $FD are used by the floating point routines. Page 
six ($600 - $6FF) is available for your use and not used by the 
Pascal System. 

The Supervisor is loaded into memory by DOS at the address $1D7C. 
If this memory location is not available, then an error message is 
given, along with an explanation of the probable cause of the 
Problem. The pseudo code program to be executed is loaded in 
memory immediately after the end of the Supervisor. The pseudo 
machine stack extends from the end of the pseudo code program to 
the MEMTOP Position, just before screen memory. 


Filename Descriptions 


The files named below are included in this ARC file: 


AUTORUN.SYS 
COMP ILER.PCD 
EDI TOR.PCD 
IN IT.PCD 
INIT.PAS 
EXPLNERR.PCD 
RSVDWRDS.TXT 
ERRORS.TXT 

RAMDISKI.DAT 
RAMDISK2.DAT 
RAMDISK3.DAT 
NOTITLE.OBJ 

SAMPLE 1.PAS 
SAMPLE2.PAS 
PASCAL.DOC 


Supervisor object code 

Compiler pcode 

Editor pcode 

Main Menu pcode 

Main Menu Pascal source 

Error code explainor (used by Compiler) 
Reserved word list (used by Compiler) 
Text for compile errors (used by 
EXPLNERR.PCD) 

Ramdisk setup (See "Ramdisk Support”) 
Ramdisk setup (See 'Ramdisk Support ) 
Ramdisk setup (See "Ramdisk Support") 
Used to suppress title 
(See "Suppressing the Title Screen") 
Kaleidoscope sample program source 
Roman numeral sample program source 
Introduction manual 


Internal Data Formats 


Variables are allocated on the stack. Variables of type FILE 
reserve no space on the stack. The others are allocated as 
fo11ows: 


VAR X:BOOLEAN 

VAR X:INTEGER 

VAR X:ARRAY[n] OF INTEGER 

VAR X:CHAR 

VAR X:ARRAY[n] OF CHAR 
VAR X:REAL 

VAR X:ARRAY[n] OF REAL 
VAR X:STR ING[a] 

VAR X:ARRAY[nJ OF STR ING[a] 


bytes 

bytes 

* (n + 

» by ^% 

bytes 

* (n + 


1 ) 

D 

1 ). 


bytes 

bytes 


by 1 0 S 
ExptainecTbelow) 
Explained below) 


Strings and string arrays have exactly the same format internal ly. 
The first two bvtes hold the actual number of elements in the 
string array. If it is not an array, this value is 1. The next two 
bytes teil the maximum length of a string entry. This ends the 
fixed part of string allocations. The remaining parts are repeated 
for as many times as there are entries in the array. Only one set 
is present for non-array string definitions. There is a one byte 
long prefix which shows the actual length of that particular 
string entry. it is followed immediately by the data of the 
string. if the maximum length of the string entries is an even 
number, then a one byte filier byte is added to the end of each 
string entry. This is required because the variables are stored on 
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the stack and the stack width is two bytes. Non-array strings of 
80 and 81 bytes long each, would each take up 86 bytes total. A 
two element string array of length 10 would require 28 bytes 
total . 

Records take up no extra disp1acement. They are used at compile 
time to specify the ränge of fields to be included within the 
record. 


Suppressing the Title Screen 


If you desire not to have the initial title screen displayed, the 
following procedure will suppress it. Make the following 
modifications, using DOS, to the desired diskette: 

1. Unlock the file NOTITLE.OBJ. 

2. Use the DOS copy function (C) to append the Supervisor 

(AUTORUN.SYS) to the special prefix (NOT ITLE.OBJ). Enter the 
following when prompted for the filenames to be copied: 
AUTORUN.SYS,NOT 1TLE.OBJ/A 

The ’/A’ is required and instructs DOS to append the file. 

3. Unlock AUTORUN.SYS. 

4. Rename AUTORUN.SYS to something eise (like AR.SYS). 

5. Rename NOTITLE.OBJ to be AUTORUN.SYS. 


Trace Format 


A few lines of trace information would look 


PC=0186 
PC=018A 
PC=018D 
PC=018F 


N=20 04 00 00 SP=3DE0 SV=0000 


N=02 88 13 
N = 10 0C 
N=60 07 00 


PC=0192 I N = 10 00 


SP=3DE0 SV=0020 
SP=3DE2 SV=8813 
SP=3DE0 SV=0100 
SP=3DDE SV=0020 


like the following: 


The 'PC' Stands for program counter. It actually refers to the 
offset of the instruction to be executed. This corresponds to the 
offset shown on the left side of the compile listing. The 'IN' 
Stands for instruction. The one to four bytes following it are the 
actual hex values of the pseudo code to be executed next. 'SP 
Stands for stack pointer. It is the actual address of the current 
location on the stack. SV is stack value. The stack width is two 
bytes, §o two bytes are shown. The actual meanings of the various 
pseudo instruction codes are not included with this manual but may 
become available in the future. 
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Reserved Word List 


ABS 

DEG 

FUNCTION 

ODD 

READLN 

STR 1NG 

ADDR 

DELETE 

GOTOXY 

OF 

REAL 

THEN 

AND 

Dl V 

GRAPHICS 

OPEN 

RECORD 

TO 

ARCTAN 

DO 

HIMEM 

OPTIONKEY 

REPEAT 

TRACEOFF 

ARRAY 

DOS 

IF 

OPTIONS 

RESET 

TRACEON 

ASC 

DOWNTO 

1NSERT 

OR 

REWR1TE 

TRUE 

BEGIN 

DRAWTO 

INTEGER 

ORD 

RND 

UNLOCK 

BLOAD 

DUMPSTK 

IORESULT 

PADDLE 

SELECTKEY 

UNTI L 

BOOLEAN 

DVSTAT 

KEYPRESS 

PEEK 

SETCOLOR 

VAL 

CALL 

ELSE 

LENGTH 

PLOT 

SHL 

VAR 

CASE 

END 

LN 

POINT 

SHR 

WA IT 

CHAR 

EOF 

LOCATE 

POKE 

SIN 

WH ILE 

CHR 

EOLN 

LOCK 

POS 

SOUND 

WRITE 

CLOSE 

EX IT 

LOG 

PROC 

SQR 

WRITELN 

COLOR 

EXP 

LPENH 

PROCEDURE 

SQRT 

XCTL 

CONCAT 

EXP 10 

LPENV 

PROGRAM 

STARTKEY 

XIO 

CONST 

FALSE 

MAXGRAPH 

PTR IG 

STATUS 


COPY 

FILE 

MOD 

PURGE 

STICK 


COS 

FOR 

NOT 

RAD 

STR 


CVTREAL 

FUNC 

NOTE 

READ 

STR IG 
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Operator 


Operators 

Operation 


assignment 


arithmetic: 

addition 
subtraction 
mu 11 i p 1 i cat ion 

DIV division 

modulo (remqnoder after 
di Vision) 


or 

IOD 


Re 1ationa1 : 


<> 

< 

> 

< = 
> = 


equa1ity 

inequality 

less than 

greater than 

Tess than or equal to 

greater than or equal to 


Logical: 


OR 

AND 

NOT 
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Editor Command Summary 

A Add lines to end of file in memory. Terminate add mode by 
entering a null line. 

C Change string of characters in one or more lines. 

D Delete one or more lines. 

E Edit one or more lines. Make change directly on the line 
presented. 

F Fi1 er commands 

A Append disk file to end of file currently in memory. 

D List disk directory on screen. 

L Load disk file into memory. Anything currently in memory 
will be erased. 

S Save file currently in memory onto disk, 

I Insert before line number you specify. Terminate insert 
mode by entering a null line. 

L List lines from memory on the screen. 

M Display Editor menu 

P Print one or more lines on printer (PO- 
Q Quit Editor execution and return to Main Menu screen. 

S Scan one or more lines for character string you specify. 

X Exit directly to the Compiler. 

? Display Editor menu. 
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Error Messages 
Compile Time Error Messages 


01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
1 1 


14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 


Compiler table overflow (max 170) 
Number expected 
'= 1 expected 
Identifier expected 
Constant type identifier, number, 
’BEGIN’ expected 
Too many nesting levels 
’ : ' expected 
' . ' expected 
1 • * aynertöd 

Undeclared identifier 
invalid type ,of identifier 
: = expected 
END expected 

' ’ELSE’, or ’END expected 

'THEN’ expected 
expected 
'00' expected 

#' or FILE type identifier expected 
' T ' expected 
'] expected 
' ) ' expected 

Illegal factor or identifier type 
INCLUDE file nesting too deep 

'OF* expected 
Mismatched data types 
'TO' or 'DOWNTO' expected 
UNTIL expected 
Range error 
' ( ' expected 
' , ’ expected 
Literal too long or 
'END’ but no RECORD 
Incorrect number of . 

INTEGER type identifier expected 
STRING type identifier expected 
REAL type identifier expected 
CHAR type identifier expected 
FILE type identifier expected 
HEX type identifier expected 
STRING constant expected 


or string constant expected 


mi ss i n 
starte 
Parameters 


end quote ( ’ ) 
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Execution Time Error Messages 


INDEX T00 HIGH 

This message occurs if an attempt is made to 
störe a string array element into an occurance 
that is higher than defined for the variable. 
For example, if you tried to störe the 
twentieth entry of an array that was only 
defined to hold ten occurances, you would get 
the message. This message only applies to 
string arrays since other array types are not 
checked for valid occurance numbers. 


UNABLE TO OPEN DEBUG IOCB (7) 

This message is issued if the list output 
device you specify in response to the 'WHERE? 
(FILESPEC) prompt cannot be opened. The 

? rompt is issued only for the debug features 
race and stack display. 


CIO ERROR xxx FOR IOCB # y 

Some kind of Input-Output Operation was 
performed which resulted in an abnormal return 
code from the Atari operating system. Refer to 
your BASIC or DOS manual for the meaning of 
the error number 'xxx'. ' y' is the IOCB number 
which the error occured on. Note that this 
message will not be printed if OPTIONS(O) is 
in effect. In this case it is your 
responsibi1ity to check the return code by 
interrogating IORESULT after each I/O type 
instruction. 


AT OFFSET 


This message accompanies some other error 
message and refers to the offset within the 
pseudo code of the instruction that had the 
error. Refer to the offset shown on your 
compile listing to determine the Pascal 
instruction that experienced the error. 


STOPPED BY <BREAK> KEY 

This message indicates that execution of the 
program was stopped because the BREAK key was 
pressed. The offset of the instruction 
executing is shown in th$ 'AT OFFSET' message. 
Note that this message will not occur (and the 
program will not stop after BREAK is pressed) 
if OPTIONS(4) is in effect. 


I NSUFFICI ENT MEMORY 


This message indicates that an attempt was 
made to increase the value of the stack 
pointer to a value which would overlay screen 
memory or the trace buffer, if the trace was 
active. It may also be caused by manipulation 
of a record without sufficient room between 
the top of the stack and the top of available 


67 



Draper Pascal 2 . 1 


Error Messages 


memory (MEMTOP) to temporarily hold it. 


INVALID OPCODE 


This message should not occur. It indicates 
that a pseudo instruction was encountered 
which is invalid. If vou get this message, it 
means that your .PCD file has been corrupted 
somehow or an XCTL was made to a file that was 
not a pseudo code file. To correct, re-compile 
the program in question. It may also occur if 
you attempt to run a Draper Pascal program 
which was compiled under a previous release of 
this Software. 


( 

V 
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Main Menu Program 

(* INITIAL MENU PROGRAM *) 

C* AS OF 09/08/89 *) 

(*$S+*) 

PROGRAM IN IT; 

CONST CLEAR=125; CURSOR=752; 

ON = 0: OFF = 1; 

RAMTOP = $6A; 

LASTFILE=$1D82; 

DEFAULT_DRV=$1D94; 

VAR BASENAME:STRINGT11]; 

PGMNAME:STR ING[30J; 

DATA:STRING[128]; 

I , J: INTEGER; 

REPLY,DRIVENQ:CHAR; 

DRIVE:STR ING[3]; 

PROCEDURE PRESSANY; 

BEG I N 

WRITELN; 

WRITEC'Press anv kev to continue'); 

READ(REFEY7- - 

END; 


BEGIN (*MAIN*) 

DRIVENO:=PEEK(DEFAULT DRV); 
DRIVE:=CONCAT(*D'.DRlVENO, : 
GRAPH I CS(0 ) ; 

POKE(CURSOR, OFF) : 

WRITE(CHR(CLEAR)); 

GOTOXY(2.0); 

WRITELN (' 


'); 


DRAPER PASCAL'); 
VERSION 2.T ) ; 

1 - Run Program'); 

2 - Disk Directory’); 

3 - Compile Program'); 

4 - Edit a Program'); 

5 - Exit to DOS'); 

6 - List a file'); 

7 - Trace on'); 

Copyright 1989'); 
by Norm Draper'); 


WRITELN, 

WRITELN(' 

WRITELN: 

WRITELN( 

WRITELN: 

WRITELN(’ 

WRITELN:, 

WRITELN(' 

WRITELN: 

WRITELN(' 

WRITELN:, 

WRITELN(' 

WRITELN: 

WRITELN(' 

WRITELN: 

WRITELNf' 

GOTOXY(2,22); 

WRITELN (' 

WRITE7' 

GOTOXY(2,18); 

REPEAT READ(REPLY) 

UNTIL (REPLY>'0') AND (REPLY<’8‘); 

CASE REPLY OF 

1 : BEGIN (* Run Program *) 

REPEAT 

WRITELN(' Enter name of program to be run'); 


WRITELN: 

POKEjCURSOR,ON^: 


J:=ADDR(PGMNAME,. 

FOR I:=0 TO 16 ÖO 

POKE(J+I,PEEK(LASTFILE+I)); 
WR1TEC 

WRITELN(PGMNAME);’ 

WRITE(' ,CHR(28)); 

READLN(BASENAME): 

J:=ADDR(BASENAME); 

FOR I:=0 TO 16 DO 
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POKE (LASTFILE+I,PEEK(J+I)); 

I:=POS(’.'.BASENAME); 

IF I<>0 THEN 
BEGIN 

J:=LENGTH(BASENAME); 

DELETE(BASENAME,I,J-I+1); 

WRITELN: 

WRITELN( Suffix not required, ignored ); 
WRITELN 

IF POS( ':'.BASENAME)=0 THEN 
INSERT(DR I VE,BASENAME,1); 

PGMNAME:=CONCAT(BASENAME, 4 .PCD'); 

OPTIONS(O): 

OPEN(#4,4,0,PGMNAME); 

I:=IORESULT; 

CLOSE(#4): 

IF 1=170 THEN 

WRITELN('Program not found ); 

OPTIONS(I) 

UNTIL 1=0: 

WRITE(CHR(CLEAR)); 

XCTL(PGMNAME) END; 

2’: BEGIN (* Disk Directory *) 

CLOSE(#1); 

POKE(CURSOR,ON) ; 

WR ITE('Fi1espec? '); 

READLN(DATA); % 

POKE(CURSOR,0FF); 

IF DATA='' THEN 


DATA:=CONCAT(DRIVE,’* 
: POS(':',DATA)=0 THEN 
INSErT(DR I VE,DATA,1); 


*'); 


’); 

DRIVE,'COMPILER.PCD’ ) ; 


■F POS(’:' DATA)=LENGTH(DATA) THEN 
INSERT('*.* 1 ,DATA,LENGTH(DATA)+1); 
OPEN(#1.6,0,DATAT: 

READLN(#1.PGMNAME); 

WRITE(CHR(CLEAR)T; 

WH ILE NOT EOF(#1) DO 

BEGIN WRITELN(PGMNAME); 

READLN(#1,PGMNAME) END; 

CLOSE(#1); 

PRESSANY; 

PGMNAME:=CONCAT(DR I VE,’ INIT.PCD'); 

XCTL(PGMNAME) END: 

3’: BEGIN (* Compi I e Program *) 

MAXGRAPH(0); 

WRITELN (* Loading Compiler.. 

POKE(CURSOR,ON); 

PGMNAME:=CONCAT( 

XCTL(PGMNAME) 

1': BEgIn (* Edit a Program *) 

MAXGRAPH(0); 

WRITELN(^Loading Editor...'); 

PGMNAME:=CONCAT(DR I VE, 1 ED I TOR.PCD *); 
XCTL(PGMNAME) 

END ; 

>': BEGIN (* Exit to DOS *) 

POKE(CURSOR,ON); 

DOS 
END; 

>’ : BEGIN (* List a file *) 

WRITELN('Enter filename of 
POKETcURSOR,ON); 

WRITELN; 

READLN(PGMNAME): 

POKE(CURSOR,OFF); 

IF POST':'PGMNAME)=0 THEN 
INSERT(DRIVE,PGMNAME,1 ); 


fi1e to be 1isted'); 
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CLOSE(#1); 

OPEN(#1.4,0.PGMNAME); 

READLN(&1,DÄTA); 

WRITE(CHR(CLEAR;); 

WH ILE NOT EOF(#1) DO 
BEGIN WRITELN(DATA); 

READLN(#1»DATA) END; 

CLOSE(#1); 

PRESSANY; 

PGMNAME:=CONCAT(DRIVE,' IN IT.PCD') 
XCTL(PGMNAME) END; 

7’: BEGIN (* Trace on *) 

POKE(CURSOR.ON); 

WRITELN('Enter number of entries 
READ£I) r 

IVE,’INIT.PCD') 


END 

END. 


TRACEON { I) ; 

PGMNAME:=CONCAT(DR 
XCTL(PGMNAME) END 


to maintain: ' ) ; 
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Editor Program Source Listings 
(* EDITOR.PAS *) 


PROGRAM EDITOR; 

'* A part of Draper Pascal *. 

By Norm Draper *, 

;* As_of 09/26/86 *. 

♦ill D: ED I TOR 1 .PAS *' 

*S!I D : ED I TOR2 . PAS * 

*‘>l D : ED I TOR3 . PAS * 

*‘>l D : ED I TOR4 , PAS *, 

*5>l D : ED I TOR5 . PAS * 

*<>l D : ED I TOR6 . PAS * 

;*$l D:ED ITOR7.PAS * 


(* ED I TOR 1.PAS *) 


CONST CLEAR=125;BELL=$FD;ESC=27; 

UP = 28;RIGHT=31; 

MAXLINES=251; MAXLENGTH = 80; 

RAMTOP=$6A; 

LMARGIN=82; 

CURSOR_HORIZ=$55; 

DEFAULT DRV=$1D94; 

VAR CMD:CHAR 

I ,CHGSW,LMO,LM1,LASTLI NE,LOW,H 
F I LENAME,PGMNAME:STRING[30J ; 

DRIVE:STR ING[3]; 

DR I VENO:CHAR ; 

DATA,DATA1,DATA2:STR ING[MAXLENGTH]; 
INPUT,OUTPUT:FILE; 

T:ARRAY[MAXLINES] OF STR ING[MAXLENGTH]; 

PROCEDURE MENU; 

BEG I N 

WRITE(CHR(CLEAR)) 

WRITELN( 

WRITELN( 

ITELN; 

ITELN ' 


GH,X,Y,SW:INTEGER; 


WR 

WR 

WR 

WR 

WR 

WR 


ÖRAPER SOFTWARE 
EDITOR’ ) ; 


) »* 


A 

C 

D 

E 

F 


L 

M 

P 

Q 

S 

X 


TELN 
ITELN 
ITELN 
ITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 

PROÖEDURE SHOWLI NE(NUMBER) 
BEG I N 

IF NUMBERC100 

IF NUMBER< 1 0 .. 

WRITE(OUTPUT,NUMBER, 

END; 

PROCEDURE GETDATA(NUMBER); 
BEG I N 

SHOWLI NE(NUMBER)r 
POKE(LMARGIN,LM1); 



Add line(s) 
Change 1^ne 
De 1ete 1ine 
Edit line(s 
Fi1 er menu’,. 
Insert before 
List 1 ine(s)’) 
Menu ); 

Prin^ 1ine(s) ’ 
Quit ); 

Mne(s) 1 | 


nd’ ) 


ne’ ) 


Scan 

Exit 


to Comp- 


THEN WRITE(OUTPUT,* 
THEN WRJT^pUTPUT, 1 


') 


’) 

); 
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READLN(DATA) ; 

IF IORESULT =137 THEN 

WRITELN(CHR(BELL),’Line ’,NUMBER,' truncated') ; 
POKE(LMARGlN,LMO) ; 

POKE(CURSOR HÖR I2,LMO) 

END; 


(* ED1TOR2.PAS *) 


PROCEDURE I NC_LASTLI NE ; 

BEG I N 

LASTLI NE:=LASTLINE+1; 

IF LASTLINE>HAXLINES THEN 
BEG IN 

WRITELN( BUFFER FULL - STANDBY ) 
LASTLI NE:=MAXLINES 
END 

END : 

PROCEDURE GETRANGE; 

BEG I N 
i nw• = 1• 

HIGH:=VASTLINE; 

WR1TE( r Line from -> '); 

READLN(DATA); 

IF DATAO ’ ' THEN LOW:= VAL(DATA) ; 

IF LOWC1 THEN LOW:=1: 

F LOW>LASTLI NE THEN 


LOW:=LASTLI NE; 
); 

: =VAL(DATA); 

:=LOW; 

HIGH:=LASTLI NE 


)) / (40-LM1) DO 


WRITE ( ’Line to -> 

READLN(DATA) 

IF DATAO ' ’ THEN HIGH 
IF H1 GH<LOW THEN HIGH 
IF HIGH>LASTLI NE THEN 
END; 

PROCEDURE ED IT; 

BEG I N 

CHGSW:=1; 

GETRANGE; 

FOR I:=LOW TO HIGH DO 
BEG I N 

SHOWLI NE(I); 

POKE(LMARGIN.LM1); 

WRITELN(T(1)5; , , 

FOR Y:=0 TO LENGTH(T( 

WRITE(CHR(UP)); 

READLN(l(I)); 

POKE(LMARGIN,LMO); 

POKE(CURSOR ÜORIZ.LMO) 

END 

END; 

PROCEDURE GETFN: 

CONST LASTFILE=$1D82; 

BEG I N 

WRITE('Enter filename -> ’); 

Y:=ADDR(DATA); 

FOR X:=0 TO 16 DO 

POKE(Y+X,PEEK(LASTFILE+X)); 

WRITELN(DATA ) ; 

WRITE(* „ ,CHR(UP)) 

READLN(FILENAME); 

Y:=ADDR(FILENAME); 

FOR X:=0 TO 16 DO 


POKE(LASTFILE+X,P| 

nnr f ' . » i— i i r ki a tiir 


F POSC 


. , F I LENAME , 

INSERT(DR I VE,FI LEN 
I:=LENGTH(FILENAME): 

IF POS(',FILENAME)=0 

insert( !pas ,FILEN 

END 


AME,1); 


THEN , 
NAME, I + 1 ) 
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(* EDIT0R3.PAS *) 


PROCEDURE GETONE; 

BEG I N 

WRITE(’Line -> ’); 

READ(LOW); 

IF LOW<1 THEN LOW: = 1 
END; 

PROCEDURE SAVE; 

BEG 1 N 
GETFN; 
y; = q • 

REWR ITE(OUTPUT,FILENAME); 

X : = IORESULT; 

IF XOO THEN 
Y: =X 
ELSE 

FOR I:=1 TO LASTLINE DO 
BEGIN , /XX 

WRI TELN(OUTPUT,T(I)); 

X:=lORESULT; 

IF XOO THEN 
Y: =X 

END; 

REWRITE COUTPUT, 'E: '); 

0PTI0NS(4); (* DISABLI 

IF YOO THEN 

WR ITELN(CHR(BELL),'***Error ',Y,' while saving to disk'); 
CHGSW:=0 
END; 

PROCEDURE CHECKUPD; 

BEGIN 

IF CHGSW=1 THEN 
BEGIN 


5LE BREAK KEY *) 


WRITELN('Fi1e changed but not saved’); 

lün i rn m / 1 •• i * * 4- i nu/Nnr _ —. ,-J 


I" to IGNORE and continue' 
to SAVE and continue' 


WRITELNC'Enter 
WRITELN(' or 
REPEAT 

READ(CMD) 

UNTIL (CMD='I') OR (CMD='S’); 
IF CMD='S' THEN SAVE 
END 

END; 

PROCEDURE KEYBOARD; 

BEGIN 

IF SW=1 THEN 
REPEAT 
SWi= SW 

UNTIL~KEYPRESS; 

IF KEYPRESS THEN 
BEGIN 

READ(CMD): 

IF CMD=' ' THEN 

SW: = 1 
ELSE 
SW: =0 

END 

END; 


j! 


(* EDITOR4.PAS *) 


PROCEDURE APPEND; 
BEG I N 
REPEAT 

INC LASTLINE; 
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GETDATA(LASTLINE); 

T(LASTLINE):=DATA 
UNTIL DATA=' ; 

CHGSW:=1; 

LASTLI NE:=LASTLINE-1 
END; 

PROCEDURE COMP ILE; 

BEG I N 

CHECKUPD; 

CLOSE(OUTPUT); 

MAXGRAPH(O); 

WRITELN: 

WRITELN( Loading Compiler ... ); N 
OPTIONS(5); (* ENABLE BREAK KEY *) , 
PGMNAME:=CONCAT(DRI VE,’COMP ILER.PCD ); 
XCTL(PGMNAME) 

END: 

PROCEDURE DLTE; 

BEG I N 

GETRANGE; 

FOR I : =0 TO LASTL1NE-HI GH-1 DO 
BEG IN 

X:=LOW+I; 

Y:=HIGH+1+I; 

T(X):=T(Y) 

END; 

CHGSW:=1; 

LASTLI NE:=LASTLI NE-(HIGH-LOW)-1 
END; 

PROCEDURE DIRECTORY; 

BEG I N 

WRITE('Filespec? ’); 

READLN(DATA); 

IF DATA=’' THEN 

DATA:=CONCAT(DRIVE,'*.*'); 

IF POS(':',DATA)=0 THEN 
INSERT(DRIVE,DATA,1T; 

IF POS('.',DATA)=0 THEN 

I NSERT( *.*’,DATA,LENGTH(DATA) + 1); 
OPEN(#5,6,0,DATA); 

READLN(^5 DÄTA); 

REPEAT 

WR I TELN(DATA); 

READLN(#5.DATA) 

UNTIL EOF(#5); 

CLOSE(#5) 

END; 

(* EDITOR5.PAS *) 


PROCEDURE INSRT; 

BEG I N 

CHGSW:=1; 

GETONE; 

GETDATA(LOW) ; 

WH ILE DATAO ' ' DO 
BEG I N 

FOR I :=LASTLI NE DOWNTO LOW DO 
BEG IN 
X: = I + 1 ; 

en 5P° ;=t(i) 

INC LASTLINE; 

T(LÜW):=DATA; 

LOW:=LOW+1; 

GETDATA(LOW) 

END 

END; 
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PROCEDURE LIST; 

BEG I N 

GETRANGE; 

FOR I:=LOW TO HIGH DO 
BEG I N 

SHOWLINE(I); 

POKE(LMARGIN,LM1); 

WRITELN(T(I)); 

POKE(LMARGIN,LMO); 

POKE(CURSOR_HORIZ,LMO); 

KEYBOARD; 

IF CMD=ESC THEN 
I : =HIGH+1 

END 

END; 

PROCEDURE PRINT; 

BEG I N 

GETRANGE; 

OPTIONS(O); 

REWRITECOUTPUT,'P:’); 

IF IORESULTOO THEN 
BEG I N 

WRITELN('PR INTER NOT READY 

WR ITELN(’PRESS START WHEN READY’); 

REPEAT 

OPTIONS(O) 

UNTIL STARTKEY; 

REWRITE(OUTPUT,’P:') 

END; 

FOR I:=LOW TO HIGH DO 
BEG I N 

SHOWLINE(I); , 

WRITELN(OUTPUT,T(I)) 

END; 

OPTIONS(I); 

REWRITECOUTPUT, ’E: 

OPTIONSC4) (* ÖISABLE BREAK KEY *) 

END; 


(* ED I TORS.PAS *) 


PROCEDURE APNDFILE; 

VAR IOR:INTEGER; 

BEG I N 

OPTIONS(0); 

REPEAT 
GETFN: 

RESET(INPUT,FILENAME); 

IOR:=IORESULT; 

I F IORESULTOO THEN 

WRITELN(File not found'); 

UNTIL IOR=0; 

WH ILE NOT EOF(INPUT) DO 
BEG I N 

INC LASTLINE; 

REAÜLN(INPUT,T(LASTLINE)); 

IF IORESULT =137 THEN 

WRITELN(CHR(BELL),'Line *,LASTLINE, 

END; 

LASTLINE:=LASTLI NE-1; 

CLOSE(INPUT); 

WR ITELN(LASTLINE, ' lines now in memory') 
END; 

PROCEDURE CHANGE; 

VAR PRTSW:INTEGER; 

BEG I N 

GETRANGE; 

WRITE('Cnange from ->'); 


truncated') 
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READLN(DATA1); 

WR I TE ( ''Change to -> ’ ) ; 

READLN(DAT A2); 

Y : =LENGTH(DATA 1); 

FOR I:= LOW TO HIGH DO 
BEG I N 

DATA:=T(I); 

PRTSW:=0; 

X:=POS(DATA1,DATA); 

IF POS(DATA 1,DATA)<>0 THEN 
BEG t N 

CHGSW:=1; 

PRTSW:=1 


DELETE(DATA.X,Y); 
INSERT(DATA2,DATA, 



T( I ) :=DATA 
ENDi 

IF PRTSW=1 THEN 
BEG I N 
SHOWLIN 
WRITELN 
KEYBOAR 
END 

END 

END; 

PROCEDURE 
BEG IN 

GETRANGE; 

WRITE( T Scan for 
READLN(DATA1); 

FOR I:=LOW TO HIGH 
BEG I N 


X); 


SCAN i 


DO 


DATA:= 


if'posI^ÄIäi,DATA)<>0 


BEG I N 
SHOWL 


THEN 


NE( 


0 


END: 


END 


wr i teln^öaIä; 

KEYBOARD; 

IF CMD=ESC THEN 
I:=HIGH+1 

END 


(* ED ITOR7.PAS *) 


PROCEDURE 
BEG I N 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
REPEAT 
READ 
UNTIL 
OR 
OR 
OR 

CASE C 
’A - 


FILER 


- Append fi1e'); 

- pirectQry,1 ist'); 

- Load fi1e ); 

- Save fi1e’); 


CMD), 

CMD= ’ 

CMD= ’ 

CMD=' 

CMD= ' 

D OF 
BEG IN 

IF LASTLINE>0 
APNDFILE 
END; 

’D':DIRECTORY; 

’L':BEGIN 

CHGSW:=0; 
LASTLI NE:=0; 
APNDFILE 


THEN CHGSW:=1 
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END; 

'S’:SAVE 
END 
END; 

BEGIN (* MAIN *) 

DRIVENO:=PEEK(DEFAULT DRV): 

DRIVE:=CONCAT('D',DRlVENO, 1 :’); 

CHGSW:=0; 

REWRITE(OUTPUT, Es ); 

MENU; 

OPTIONS(4); (* DISABLE BREAK KEY *) 

LM0:=PEEKC LMARGIN); 

LM1:=LM0+4; 

REPEAT 

WRITE('A.C,D,E,F,l,L,M,P,Q,S,X,?-> 
READ(CMD); s 
WRITELN(CMD); 

OASE CMD OF 
’A':APPEND; 

’C*:CHANGE; 

D :DLTE; 

E :EDIT; 

*F*:FILER; 

’I':INSRT; 

' L’:LI ST; 

* M *,•?' :MENU; 

' P’:PRI NT; 

’Q' : ; 

'S':SCAN; 

’X':COMP ILE 
ELSE 

WRITELN(CHR(BELL), 

END 

UNTIL CMD='Q'; 

CHECKUPD; 

CLOSE(OUTPUT); 

OPTIONS(5); ENABLE BREAK KEY *) 
PGMNAME:=CONCAT(DR I VE, ’ INIT.PCD'); 
XCTL(PGMNAME) 

END. 


Invalid command') 


( 


c 
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(* RAMDISK.PAS *) 


PROGRAM RAMDISK; 

(* As of 09/26/86 *) 

(* This program checks to see if the Ramdisk has already been 
setup yet for Draper Pascal. If it has not been, then the 
required files are copied from drive one to the Ramdisk. Then 
the default drive number is changed to the Ramdisk drive 


number 

and 

The 

the 

VAR 


control is transferred to the Ramdisk copy of INIT.PCD. 
Ramdisk drive number is determined by the second entry in 
file Dl: COPYLIST.TXT. *) 

CH:CHAR; 

RC.SUBADDR:INTEGER; 

DR I VE IN. DR IVEOUT:S+RING 




ur\ I T L. III i I T LVU I • v-» I I \ t 

DATA,INPUT,OUTPUT:STR 
BEG I N 

OPEN(#3,4,0. t 'Dl : CQPYLiST.TXT' ) 


]; 


Input drive *) 

Output (Ramdisk) drive *) 
’COMPILER.PCD 1 ); 

*) 


Wl LIUTTV.T, V, U» I • I L» » sj I 

READLN(#3,DRIVEIN): (* 

READLN(#3,DRIVEOUT); (* 

OUTPUT:=C0NCAT(DRIVEOUT, 

OPTIONS(O): (* Trap errors 
OPEN(#1,4,0,OUTPUT); 

RC:=lORESULT; 

OPTIONS(I); (* Stop trapping errors *) 

CLOSE(#i )\ 

IF RC <> 0 THEN 
BEG I N 

BLOAD('Dl:COPYFI LE.OBJ') ; 

SUBADDR:=PEEK($2E1); 

SUBADDR:=SUBADDR SHL 8: 

SUBADDR:=SUBADDR+PEEK($2EQ); 

WRITELN(’Copying:'); 

READLN(ff3,DATA); 

WH ILE NOT EOF(#3) DO 
BEG I N 

INPUT:=CONCAT(DR I VE IN,DATA); 

OUTPUT:=C0NCAT(DRIVEOUT.DATA); 

WRITELN(INPUT,* -> ,OU+PUT); 

CLOSE(ttl,#2); 

OPEN(#l,4,0,INPUT): 

OPEN(#2,8,0,OUTPUT); 

CALL(SUBADDR); 

CLOS£(f1.#2); 

READLN(#3,DATA) 

END 

END; 

CLOSE(#3); 

(* Change the default drive to the Ramdisk drive *) 
SUBADDR:=ADDR(DRIVEOUT)+2; 

P0KE($1D94,PEEK(SUBADDR)); 

OUTPUT:=CONCAT(DRIVEOUT, < INIT.PCD’); 

XCTL(OUTPUT) 

END. 


10 
20 
30 
40 
50 
60 
70 ; 
80 ; 
90 : 
0100 
0110 


(* COPYFILE.M65 *) 

.TITLE "FILE COPY UTILITY PROGRAM" 
BY NORM DRAPER 

AS OF 09/04/86 

.ORG $5000 ;09/04/86 

SPACE 2 

Operating System Equates - 

SPACE 1 

MEMLO .EQU $02E7 ;start of user memory 
ICCOM .EQU $0342 ;CIO command 
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0120 

ICBAL 

* EQU <; 

0344 

0130 

1 CBAH 

. equ ;; 

0345 

0140 

ICBLL 

.EQU <i 

0348 

0150 

1 CBLH 

.EQU <; 

0349 

0160 

ICAX1 

.EQU s; 

034A 

0170 

ICAX2 

.EQU <; 

034B 

0180 

DOS IN1 

.EQU !» 

OA 

0190 

CIOV 

.EQU !i 

E456 ;CIO vector 

0200 

EOL □ 

$9B 


0210 

EOF = 

$88 


0220 

BELL = 

$FD 


0230 

1OCB1 = 

$10 


0240 

1OCB2 = 

$20 


0250 

OPEN = 

$03 


0260 

GETCHR 

= $07 


0270 

PUTCHR 

= lOB 


0280 

CLOSE = 

foc 


0290 

OREAD = 

$04 


0300 

OWRIT = 

$08 

** 

0310 

) 



0320 

START = 

* 


0330 

LDX 

# 1 OCB 1 

0340 

LDA 

BUFFADR 

0350 

STA 

ICBAL 

,x 

0360 

STA 

ICBAL+16 f X 


0370 LDA BUFFADR+ 1 

0380 STA ICBAH , X 

0390 STA ICBAH+16,X 

0400 LOOP = * 

0410 LDX #IOCB1 ;RESET IOCB PTR 

0420 LDA BUFFLEN 

0430 STA ICBLL.X 

0440 LDA BUFFLEN+1 

0450 STA ICBLH,X 

0460 LDA tfGETCHR 

0470 STA ICCOM,X 

0480 JSR CIOV 

0490 STY SAVEY ;SAVE CIO RC 

0500 LDX #IOCB1 ;RESET IOCB PTR 

0510 LDA ICBLL.X 

0520 STA ICBLL+16 ,X 

0530 LDA ICBLH,X 

0540 STA ICBLH+16,X 

0550 LDX #IOCB2 ;RESET IOCB PTR 

0560 LDA tfPUTCHR 

0570 STA ICCOM,X 

0580 JSR CIOV 

0590 CPY #0 

0600 BEQ OKAY 

0610 RTS 

0620 OKAY = * 

0630 LDY SAVEY 

0640 CPY #EOF 

0650 BEQ DONE 

0660 CPY #0 

0670 BEQ LOOP 

0680 DONE = * 

0690 RTS 


0700 ; 

071D SAVEY .BYTE 0 
0720 BUFFADR .WORD ENDPGM 
0730 BUFFLEN .WORD $BC00-ENDPGM 
0740 ENDPGM = * 

0750 .ORG $02E0 

0760 .WORD START 

0770 .END START 
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Sample Programs 
(* SAMPLE 1.PAS *) 


PROGRAM KALEIDOSCOPE; 
VAR I,J,K,W,X:INTEGER; 
BEGIN 

MAXGRAPH( 3^ ; 


50 DO 
TO 10 DO 


GRAPH I CS( 

X: =0; 

REPEAT 
FOR W:=3 TO 
BEGIN 

FOR I:=1 
BEGIN 

FOR J:=0 TO 10 DO 
BEGIN 
K : = I + J ; 

COLORCJ*3/(I+3)+I*W/12); 

k+8 | I2 I 
32-1,24-1 
32-K.24-I, 
K+8.^4-1); 

32-r,K): 

1+8,24-K); 

32-K,I) 


PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

END 

END 

END 

UNTIL X=99 
END. 


MO; 

hi)i 


(* UNENDING LOOP *) 


(* SAMPLE2.PAS *) 


PROGRAM ROMAN; 

(* ROMAN NUMERAL SAMPLE PROGRAM *) 

(* ADAPTED FROM PASCAL USER MANUAL AND REPORT BY JENSEN AND 

RTH *) 

VAR X,Y:INTEGER; 

BEGIN Y: = 1; , , , s 

REPEAT X:=Y : WRITE (X,‘ ’); 

WHILE X>=1000 DO 
BEGIN 

WRITE (’M’); X:=X-1000 
END; 

IF X> =500 THEN 
BEGIN 

WRITE ('D’); X:=X-500 
END; 

WHILE X>=100 DO 
BEGIN 

WRITE (’C'); X:=X-100 


END; 

IF X>=50 THEN 
BEGIN 

WRITE (*L'); 
END; 

WHILE X>=10 DO 
BEGIN 

WRITE (’X’) ; 
END; 

IF X>=5 THEN 
BEGIN 

WRITE (’V'); 
END; 

WHILE X>=1 DO 


X:=X-50 


X:=X-10 


X: = X - 5 
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BEGIN ,, 

WR ITE ('1'); X:=X-1 
END; 

WRITELN; 

Y:=Y*2 

UNTIL Y>5000 
END. 
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Printer Usage 

Printer usage with Draper Pascal 


To print a Pascal source program, you can load th? program into 
memory using the Editor, as normal. Then use the P command to 
print on the printer. Tne source Statements will be preceded by a 
“ine number and a colon. 


There are two ways to print data from your program onto the 
Printer. The first is similar to the way it would be done in 
BASIC. An example is: 


PROGRAM PRINT_1; 

VAR I,J: INTEGER; 

BEG I N 

OPEN(#2,8,0,’P:'); 

FOR i:=1 TO 10 DO 

BEG I N 

J : = I * 1 0 ; 

WRITELN(#2,I : 10, J) 
END; 

CLOSE(#2) 


END. 

The above example prints a multiplication table on the printer. 
The second way to print is by using a FILE type variable assigned 
to a printer. An example providing the same results as above is: 

PROGRAM PR INT_2; 

VAR 1,J: INTEGER; 

PR INTER:FI LE; 

BEG IN 



BEG I N 

j • = | * 1 0 • 

WRITELN(PR INTER, I :10,J) 
END; 

CLOSE(PR INTER) 

END. 
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Software License 
Non-Exclusive, Royalty-free 
License to distribute the 
Draper Pascal Supervisor 


I. Purpose 

This roya1ty-free, 
wi 
app 


. non-exclusive 

de^pread use of Software developed 
_ r plies only to the original purchas 
( Li censee") . 


license is provided to allow 
using Draper Pasca1. It 


purchaser of Draper Pascal 


II. The License 

Subject to the conditions stated herein, Draper Software will 

§ rant to the Licensee a roya1ty-free, non-exclusive license to 
istribute the run-time System ( Supervisor ). Licensee is only 
authorized to distribute the Supervisor in object code form and 
only in conjunction with Software developed by Licensee which 
requires the Supervisor for proper Operation. Licensee shal1 not 
use or purport to authorize any person to use any of the 
Copyrights, trademarks, Service marks, or trade names of Draper 
Software without prior written consent from Draper Software. 

The Supervisor consists of the file named AUTORUN.SYS on the 
supplied diskette. It may be distributed under another name if 
Licensee so desires. 

The supplied Disk Operating System (DOS) is excluded and may not 
be distributed by Licensee. 


III. The License Term 

This license will run for a term of five (5) years from date of 
lipense acceptance. Extensions bevond that term may be secured by 
written permission from Draper Software. 


IV. Acceptance 

The term of this license will begin two weeks after Licensee has 
signed and returned a copy of this license to Draper Software, 
providing that no reject notice was sent to you by Draper Software 
within tne two week period. 
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V. Additonal Terms and Conditions 

A. Licensee understands and agrees that: 

1. The Supervisor is distributed on an "as is" basis without 
warranty of any kind from Draper Software. 

2. The entire risk as to th$ performance and quality of the 
Supervisor is with the Licensee. 

3. !f the Supervisor, as incorporated into Licensee’s 
products proves defective followina it s purchase, 
Licensee and not Draper Software, Draper Software s 

distributors, or retailers, assumes all costs associated 
with or resuiting from use of Licensee’s products 
including all necessary repair or servicing. 

4. Draper Software shal1 have no liability to Licensee or to 
customers of Licensee for loss or damage, including 
consequential and/or incid^ntfl damage, caused or alleged 
to be caused, directly or indirectly, by the Supervisor. 
This includes, but is not limited to, any interruption in 
Service or loss of business or anticipatory profits 
resuiting from the -use or Operation of the Supervisor. 

B. Licensee shal1 indemnify and hold Draper Software harmless 
from any claim, loss, or liability allegedly arising out of 
or relating to the Operation of tne Supervisor as used by 
Licensee or customers of Licensee pursuant to this license 
agreement. 


C. Licensee shal1 not suggest. imply or indicate in any manner 
that any of Licensee's Software products which incorporate 
or use the licensed Supervisor are approved or endorsed by 
Draper Software. 


D. Licensee acknowledges th'ät a failure to conform to the 

B rovisions of Section V, Subsection C (above) will cause 
raper Software irreparable harm and Draper Software's 
remedies at law will be inadequate. Licensee acknowledges 
and agrees that Draper Software shal1 have the right, in 
addition to other remedies, to obtain an immediate 
injunction enjoining any breach of Licensee’s obligations 
set forth in Section V.C above. 


E. No waiver or modification of any provisions of this license 
shall be effective unless in writing and signed by the party 
against whom such waiver or modification is sought to be 
enforced. No failure or delay by either party in exercising 
any right, power or remedy under this license shall operate 
as a waiver of any such right, power or remedy. 


F. This license shall bind and work to the benefit of the 

successors and assigns of the parties hereto. Licensee may 
not assign rights or d^legate ob 1igations, which -arise under 
this license to any third party without the express written 
consent of Draper Software. Any such assignment or 
delegation, without written consent of Draper Software, 
shall be void. 


G. The validity, construction and performance of this license 
shall be governed by the substantive law of the State of 
Texas and of the United States of America excluding that 
body of law related to choice of law. Any action or 
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proceeding brought to enforce the terms of this license 
shall be brought in the County of Dallas, State of Texas, if 
under state law. 


H. In the event of any legal proceeding between the parties 
arising from this license, the prevailing party shall be 
entitled to recover, in addition to any other relief awarded 
or grante^, its reasonable costs and expenses, including 
attorneys fees, incurred in the proceeding. 


Your Name ___ 

Company Name (if any) _ 

Address _ _ _ 

City, State, Zip 
Telephone Number _ 
Signature and Q«te ____ 
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